[Alegun]

А где же ваш код чтоб подсказать что-то?
За отсутствием оного, вот что-то по теме

Код:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
var
 Col, Row: integer;
begin
 StringGrid1.MouseToCell(X, Y, Col, Row);
 Stringgrid1.Cells[Col, Row]:= IntToStr(Col) + ':' + IntTostr(Row);
end;