procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin Edit3.Text := StringGrid1.Cells[ACol, ARow]; end;