Android 4.2 vs 5.0+

[wschrabi]

Danke, aber ich habe es so probiert um nicht viel umschreiben zu müssen, aber es klappt nicht.
Weiß wer was ich falsch mache?

Delphi-Quellcode:

function TForm1.MyInputQuery(line1: string; line2: string; var invar: string): boolean;
var
   myResult:boolean;
   myVal: string;
begin

InputQuery( line1, [line2], [invar],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
    if AResult=mrOK then
      begin
      myResult:=true;
      MyVal:=AValues[0];
      ShowMessage(' EIngabe: '+myval);
      end
    else
      begin
      myResult:=false;
      Myval:='';
      end;
    end);
    
 Result:=myResult;
 if Result  then invar:=myVal else invar:='';
 
end;