// 退出确认...
procedure TMainForm.CornerButton11Click(Sender: TObject);
begin
  MessageDlg(‘本操作将从资金管理系统退出！‘+#13#10+‘确认是否进行退出处理？‘, System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgD*n.mbYes,
      System.UITypes.TMsgD*n.mbNo
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrYES then
         begin
            //
            // 善后处理并退出...
            timer.Enabled:=false;
            Cds1.Close;
            cds2.Close;
            cds3.Close;
            rights.Free;
            grid1.RowCount:=0;
            grid2.RowCount:=0;
            grid3.RowCount:=0;
            grid4.RowCount:=0;
            mbconn.Disconnect;
            close;
         end;
    end);
end;

DelphiXE7 FMX 退出程序写法！