Событие InputBox при клике ListBoxItem

[master webs]

Добрый день написал процедуру для  редактирования  текста в item

procedure TForm1.itemedit;
var
s: TListBoxItem;
begin
  s:=shopcart.Selected;
  s.StylesData['textstyle']:=InputBox('Изменить количество','шт.',s.StylesData['textstyle'].ToString);
end;

под win все работает красиво, но под андроид получаю ошибку

 

blocking dialogs not implemented on this platform

 

подскажите как изменить процедуру чтоб заработало и в андроиде

[master webs]

разобрался может кому  будет нужно

procedure TForm1.shopcartItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
  var
edit: TListBoxItem;
begin
  if shopcart.Selected <> nil then
  begin
    edit:=shopcart.Selected;
    InputBox('Изменить количество', '', edit.StylesData['textstyle'].ToString,
      procedure(const AResult: TModalResult; const AValue: string)
      begin
        edit.StylesData['textstyle']:= AValue;
      end);
  end;