procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
 Field: TField; State: TGridDrawState);
var
 RowHeight: Integer;
begin
 if gdFocused in State then
 begin
   RowHeight := Rect.Bottom - Rect.Top;
   Row := (Rect.Top div RowHeight)- 0;
   Col := Field.Index;
   Edit2.Text:=IntToStr(Row);
   Edit3.Text:=IntToStr(Col);
 end;
end;