как при нажатии выдалась справка из string grid

[deadneoo]

У меня есть stringgrid мне надо при нажатии либо при движени мыши чтобы показывала справку как это сделать
вот код команды
как придвижении показывало какая строка и какие столбцы
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;
А мне нужно какая то ячейка Например ячейка 1 столбец 1 строка

[deadneoo]

пожалуйста помогите как можно сделать всплывающую подсказку в stringgrid именно из нужной ячейке stringgrid[1,1] . подсказку выводящий текст

[Terran]

Если я правильно понял вопрос, то вот код:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
r : integer;
c : integer;
begin
StringGrid1.MouseToCell(X, Y, C, R);
Application.HintPause:=0;
if (c = 1) and (r = 1) then
form1.StringGrid1.Hint := 'Столбец: '+IntToStr(c )+ #32 +'Строка: '+ IntToStr(r)+ ' Текст'
else
if (c = 1) and (r = 2) then
form1.StringGrid1.Hint := 'Столбец: '+IntToStr(c )+ #32 +'Строка: '+ IntToStr(r )+' Текст1'
else
form1.StringGrid1.Hint := IntToStr(r) + #32 + IntToStr(c);
//и т.д
end;