Var Modified: boolean; procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin lblNewValue.Caption := Value; Modified := True; end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin lblOldValue.Caption := Stringgrid1.Cells[Acol, ARow]; end;