Разделеные подсказки
	
procedure TForm1.FormCreate(Sender: TObject);
begin
 StringGrid1.Hint := '0 0';
 StringGrid1.ShowHint := True;
end;
procedure TForm1.StringGrid1MouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
var  r : integer;
     c : integer;
begin
  StringGrid1.MouseToCell(X, Y, C, R);
  if ((Row <> r) or (Col <> c))
  then
   begin
    Row := r;
    Col := c;
    Application.CancelHint;
    StringGrid1.Hint := IntToStr(r) + #32 + IntToStr(c);
 end;
end;