Correct ,
I Also tried the new call method as well
ASyncService.InputQueryAsync from Embarcadero and it also fails too,
if TPlatformServices.Current.SupportsPlatformService (IFMXDialogServiceAsync, IInterface (ASyncService)) then begin
with ASyncService do begin
ASyncService.InputQueryAsync('Please Enter Search Term', ['Info'], [search_word],
procedure (const AResult : TModalResult; const values: array of string)
begin
case AResult of
mrOk :
begin
NewString:=Values[0]; //showmessage('ok pressed');
end;
mrCancel :
begin
NewString:=Values[0]; //showmessage('cancelled pressed');
end;
end; // end of case
); // final end