procedure TForm1.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Col, Row: LongInt;
begin
  DrawGrid1.MouseToCell(X, Y, Col, Row);
  Caption := Row.ToString + '   ' + Col.ToString;
end;

procedure TForm1.DrawGrid1DblClick(Sender: TObject);
begin
  ShowMessage('Col:' + IntToStr(DrawGrid1.Col) + ' Row:' + IntToStr(DrawGrid1.Row));
end;