unit Unit6;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Platform,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Dialogservice, FMX.Edit;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MsgDlgResult: Integer;

implementation

{$R *.fmx}
{$R *.LgXhdpiTb.fmx ANDROID}



procedure TForm1.Button2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  FMX.Dialogs.MessageDlg(edit1.text, TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk],0,
  procedure(const AResult: TModalResult)
  begin
    if AResult = mrOK then
    begin
      exit;
    end;
  end);
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  edit1.Text := '';
end;

end.