Listview Zeilen färben, On Custom DrawItem

[Centrii]

so, jetzt hab ich meine ListView in den VirtualMode umgestellt. Alles geht wieder, nur mit einem hab ich noch ein Problem.
Mein Drag N´Drop von früher geht ja jetzt auch nicht mehr und ich bin grad am grübeln wie ich das jetzt mit der VirtualMode
Listview mache.
Bisher machte ich es so...

Delphi-Quellcode:

procedure TfDLMain.ListViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
  if Sender = Source then
  with TListView(Sender) do begin
   DropItem := GetItemAt(X, Y);
   CurrentItem := Selected;
   while CurrentItem <> nil do begin
   NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
   if DropItem = nil then DragItem := Items.Add
   else
     DragItem := Items.Insert(DropItem.Index);
     DragItem.Assign(CurrentItem);
     CurrentItem.Free;
     CurrentItem := NextItem;
   end;
  end;
end;

//**********************************************************************************************************************

procedure TfDLMain.ListViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept := Sender = ListView;
end;

jetzt frage ich mich wie ich das jetzt machen kann. Hat da jemand ne Idee?
Ich hab eine Values : TStringlist wie in dem Demo vom Marabu.

Gruß Ruben