vst makiertes item wird bei GetNextSelected ausgelassen ?

[pluto]

Hallo,
ich habe mit folgendem code ein problem:

Code: Alles auswählen

procedure TForm1.listeMouseDown(Sender: TOBject; Button: TMouseButton;
  Shift: TShiftState; X,Y: Integer);
var
  node,node1:PVirtualNode;
begin
  if liste.FocusedNode <> NIL then begin
    Paint2main.liste.SetSelObj(false);
    Paint2main.liste.SetFocusAllObj(-1);
    if liste.SelectedCount > 1 then begin
      node:=nil;
      repeat
        node:=liste.GetNextSelected(node);
        if node <> NIL then begin
          TPaint2BasesObj(Paint2Main.liste.AktivDocument.objlist[node.Index]).Sel:=true;
          node1:=node;
        end;
 
      until (node = NIL);
 
      Paint2main.liste.SetFocusAllObj(node1.Index);
    end
    else
      Paint2main.liste.SetFocusAllObj(liste.FocusedNode.Index);
    Paint2Main.invalidate;
  end;
 
end;

diser code soll objekte in paint2 makieren das geht auch schon... nur allerdins sobalt ich mehre makiere mit strg+linke maustaste wird das aktuell makierte object anscheind ausgelassen... kann mir jemmand sagen warum ?