unit uFrameSet;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.Controls.Presentation,
  FMX.ScrollBox, FMX.Edit, FMX.Objects;

type
  TFrameSet = class(TFrame)
    GridSet: TStringGrid;
    Name: TStringColumn;
    Value: TStringColumn;
    ID: TStringColumn;
    Key: TStringColumn;
    procedure GridSetEditingDone(Sender: TObject; const ACol, ARow: Integer);
  private
    { Private declarations }
  public
    IsChange:boolean;
  end;

implementation

{$R *.fmx}

procedure TFrameSet.GridSetEditingDone(Sender: TObject; const ACol,
  ARow: Integer);
begin
   IsChange:=true;
end;

end.