"Vorschau" beim Verschieben von Einträgen in Listbox

[Aurelius]

Hi DPler

im Augenblick verschiebe ich Einträge in der Listbox so:

Delphi-Quellcode:

procedure TfrmPlaylist.lsbPlaylistDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if source is TListbox then accept:=true else accept:=false;
end;

procedure TfrmPlaylist.lsbPlaylistDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  lsbPlaylist.Items.Move(lsbPlaylist.ItemIndex,lsbPlaylist.ItemAtPos(point(x,y),true));
end;

Klappt soweit auch. Ich würde aber gerne beim Verschieben noch eine Art Vorschau haben (wie
im Anhang zu sehen, Mauszeiger einfach dazudenken ^^).