Bei Drag and Drop Listbox Verlust von Zeichen

[Samashy]

Ich hab ein seltsames Phänomen:

Bei Drag and Drop zwischen 2 Listboxen verliere ich immer das erste Zeichen. Macht man sich den Spaß das selbe Item immer hin und her zu schieben, ist die Bezeichnung irgendwann komplett verschwunden.

Weiß jemand Rat?

Delphi-Quellcode:

procedure Thauptform.lb_basisDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  lb : Tlistbox;
begin
  if Source is Tlistbox then begin
    lb := Source as Tlistbox;
    if lb.Name = 'lb_hr' then begin
        lb_basis.AddItem(lb_hr.Items.ValueFromIndex[lb_hr.Itemindex],
                         lb_hr.Items.Objects[lb_hr.Itemindex]);
        lb_hr.DeleteSelected;
    end;
  end;
end;

Danke,
Sam

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]