Drag&drop из FileListBox в Chromiun

[Yuran]

Как это сделать?

на форме есть

wb:TChromium
flb:TFileListBox
...

...
flb.DragMode:=dmAutomatic;

Файл вроде цепляется мышкой но за пределами flb курсор приобретает вид перечеркнутого кружечка и в wb ничего не бросается.

Хотя например с рабочего стола можно в wb закинуть картинку.

Как заставить flb отдать, а wb принять файл ?

[Igor[Игорь]]

Что-то навроде такого

procedure TForm1.wbDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept:=source=form1.flb;
end;

procedure TForm1.wbDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
//действия после завершение перетаскивания
end;