VirtualStringTree: 2 unterschiedliche Imagelisten?

[MCXSC]

Ich greife das Thema nochmals auf.

Ich habe die funktion "GetImageIndexEx" dort habe ich z.B. folgendes:

Delphi-Quellcode:

procedure TMainFrm.VSTListeGetImageIndexEx(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer;
  var ImageList: TCustomImageList);
var
  Data: PTreeData;
begin
  Data := VSTListe.GetNodeData(Node);
  case Column of
    7: begin
      ImageList := Icons1;
      if Data.fMyData1= '-1' then ImageIndex := 11
      else ImageIndex := StrToInt(Data.fMyData1);
    end;
    8: begin
      ImageList := Icons2;
      if Data.fMyData2 = '-1' then ImageIndex := 23
      else ImageIndex := StrToInt(Data.fMyData2);
    end;
  end;
end;

Da lädt er aber keine Bilder. Erst, wenn ich mit "VSTListe.Images := Icons1" eine ImageList zuweise. Und dann habe ich das Problem, dass immer die Maße von der im ObjectInspektor eingetragenen ImageList genommen werden.