type

 TForm1 = class(TForm)

  StringGrid1: TStringGrid;

  procedure StringGrid1MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

  procedure FormCreate(Sender: TObject);

 private

  { Private declarations }

  Col : integer;

  Row : integer;

 public

  { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.DFM}

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;