Meine Drag'n'Drop-Funktion ergänzen

[DeddyH]

*Gnarf* Probier das Folgende mal aus, dann weißt Du, was ich meine:

Delphi-Quellcode:

Liste := TStringlist.Create;
try
  Liste.Add('Hallo');
  ShowMessage(Liste[1]); //es ist nur ein Element mit Index 0 (!!) vorhanden
finally
  Liste.Free;
end;