mobilde programı kapatmak

[elixir84]

function TForm1.MsgDlg(Mesaj: String; AButtons: TMsgDlgButtons; ACloseDialogProc: TInputCloseDialogProc): TModalResult;
var
 SResult: TModalResult;
begin
TDialogService.MessageDialog(mesaj, System.UITypes.TMsgDlgType.mtInformation,AButtons,System.UITypes.TMsgDlgBtn.mbYes, 0,
            procedure(const AResult: TModalResult)
            begin
              ACloseDialogProc(AResult);
              SResult := AResult;
            end
            );
Result := SResult; // = mrYes;
end;


procedure TForm1.kapat;
begin
{$IFDEF ANDROID}
SharedActivity.Finish;
{$ENDIF}

{$IFDEF IOS}
HALT;
{$ENDIF}

{$IFDEF MSWINDOWS}
close;
halt
{$ENDIF MSWINDOWS}

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ana.MsgDlg('Kapatmak İstediğinizden Eminmisiniz?', [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo],
                      procedure (const AResult: TModalResult)
                      begin
                         if AResult = mrYes then
                         begin
                         kapat;
                         end;
                      end);
end;