Drag&Drop mit TcxListBox und TcxTreeList

[Blubbel]

Danke!! Jetzt meckert er weiter ich schau mal was ich tun kann... wenn ich gar nicht mehr weiter weiß schrei ich ganz laut

Hier ist der Schrei!!!

Delphi-Quellcode:

  if Assigned(Source)  then
  begin
    lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert
    begin
      lst1 := TcxListBox(TcxDragControlObject(Source).Control); //Hier auch geändert
      i := lst1.ItemIndex;

      if (i >= 0) then
      begin
        lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]); //Fehlermeldung
        {Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung
        'Zugriffsverletzung bei Adresse 0087A5DE in Modul '*.exe'. Lesen von Adresse 00000280' aufgetreten}
        if Assigned(lNumber) then
        begin