Werte von ListBox per doppelklick in Memo einfügen

[ol_le]

Hallo,

ich habe eine ListBox und ein Memofeld (in dem sind mehrere items eingegeben).
Wenn ich einen doppelklick auf eines der items mache, soll dieses Item im Memofeld an der aktuellen Position eingefügt werden.

Eigendlich ganz einfach, nur lässt der bei mir immer dass erste Zeichen weg. Sprich in der ListBox steht 'besucht' dann schreibt er ins Memo 'esucht'.

Dabei nehme ich eigendlich den kompletten Eintrag.

Habt ihr ne idee?

Delphi-Quellcode:

procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
  Memo1.SelLength:=0; //Der 'makierte' Bereich wird auf 0 gestellt, damit nichts überschrieben wird.
  Memo1.SelText:= ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex]; //An die Aktuelle Position wird das ausgewählte Item geschrieben.
end;

Vielen Dank im vorraus

[DeddyH]

Delphi-Quellcode:

Memo1.SelText:= ListBox1.Items[ListBox1.ItemIndex];