Начать Drag'n'Drop в Windows из события OnGesture

[МихаилЪ чайковЪ]

Сейчас делаю так

procedure TForm1.Circle1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  lsender: TCircle;
  Svc: IFMXDragDropService;
  DragData: TDragObject;
  LCircleShot: FMX.Graphics.TBitmap;
begin
  lsender := (Sender as TCircle);
  if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, Svc) then
  begin
    LCircleShot := lsender.MakeScreenshot;
    lsender.Align := TAlignLayout.None;
    DragData.Source := Sender;
    DragData.Data := LCircleShot;
    Svc.BeginDragDrop(Self, DragData, LCircleShot);
  end
end;

Проблема в том, что при удержании пальца в тот самый момент, когда процедура должна выполниться, приложение наглухо зависает