Saludos a todos...
Prueba esto
Código Delphi
[-]
procedure TForm1.Edit2Exit(Sender: TObject);
var
ASyncService : IFMXDialogServiceASync;
begin
if TPlatformServices.Current.SupportsPlatformService (IFMXDialogServiceAsync, IInterface(ASyncService)) then
begin
ASyncService.MessageDialogAsync( 'Proyecto no existe', TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbOK], TMsgDlgBtn.mbOK, 0,
procedure(const AResult: TModalResult)
begin
case AResult of
mrOk : edit2.SetFocus;
end;
end);
end;
end;
Me había encontrado con un problema similar en una aplicación android con el showmessage y lo resolví de esta forma
Te dejo un
enlace
Saludos