Android: Inputquery läuft nicht

[greenmile]

Jetzt habe ich den MessageDlg so angepasst, dass es korrekt unter Android / iOS läuft. Jetzt habe ich versucht, InputQuery anzupassen:

Code:

function TfrmMain.InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
var
  Prompts: array of string;
  Values: array of string;
begin
  MsgDlgResult := -1;
  InputQueryResultStr := '';

  SetLength(Prompts, 1);
  Prompts[0] := APrompt;
  SetLength(Values, 1);
  Values[0] := Value;

  Result := FMX.Dialogs.InputQuery(ACaption, Prompts, Values,
            function(const Values: array of string): Boolean
            begin
              MsgDlgResult:= 0;
              InputQueryResultStr := Values[0];
            end
          );
  while MsgDlgResult<0 do Delay(10);
  Value := InputQueryResultStr;
end;

Unter iOS funktioniert das, unter Android (Galaxy S5) kommt weiterhin die Meldung wegen blockierender Meldungen, also alles außer InputQuery. Ist das ein Bug?
Man man man, ist echt eine Haßliebe mit EMBT. Manchmal mag man die, manchmal verflucht man die Änderungen der neuen Version.