Validando datos con el evento OnExit en un TEdit de Firemonkey

[manelb]

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