InputQuery - Dialog Blockiert

[Nanaki]

Erstmal ein freundliches Hallo ans Forum.

nun zu meiner Frage:

ich frage über ein Inputquery ein Benutzercode ab, auf dem Android handy erscheint dann die Nachicht: " Dialogfelder werden blockiert...."

nach ein bisschen suche habe ich dann rausgefunden das ich eine funktion an das Inputquery anhängen kann....

so siehts nun bei mir aus

Code:

InputQuery('Enter New Task', ['Task'], [mrOk,mrCancel],
  procedure(const AResult: TModalResult; const AValues: array of string)
  begin
    case AResult of
    mrOk:
    begin
      RestRequestDS(adqBenutzer, '*', 'EV_BENUTZER', 'REMOTEPASSWORT = ''' + RemotePasswort + ''' AND ZUGANGSCODE = ''' + AValues[0] + '''', '');
      if adqBenutzer.RecordCount = 0 then begin
        Showmessage('Zugangscode ist falsch !');
      end
      else begin
        Appgesperrt := False;
        Eingabe := True;
      end;
    end;
    mrCancel:
    begin
      Showmessage('Zugangscode ist falsch !');
    end;
    end;
  end
);

trozdem ich kriege ich immernoch die Nachicht das die Dialoge blockiert werden...

habt ihr ne Ahnung was ich falsch gemacht habe ?