Mauskoordinaten in Zellenkoordinaten umrechnen

void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
    int ACol, ARow;
    StringGrid1->MouseToCell(X, Y, ACol, ARow);

    ShowMessage(IntToStr(ACol)+":"+IntToStr(ARow));
}