procedure StringGrid1MouseDown(x,y: integer); var Col, Row: Longint; ClientPoint, ScreenPoint: TPoint; begin GetCursorPos(ScreenPoint); ClientPoint := StringGrid1.ScreenToClient(ScreenPoint); StringGrid1.MouseToCell(ClientPoint.X, ClientPoint.Y, Col, Row); if Row=0 then Begin //TRI End; End;