Delphi-Quellcode:
procedure TTA_Daten_HinzuDLG.Button3Click(Sender: TObject);
var
dstnum,i:integer;
dstlistar:array of string;
begin
dstnum:=dstlist.Items.Count;
setlength(dstlistar,dstnum);
for i:=0 to dstnum -1 do
dstlistar[i]:=dstlist.Items.Strings[i];
label3.Caption:=dstlistar[1];
end;
Auch dynamische Array fangen mit dem Index 0 an, genau wie die Items Deiner Listbox.
Der Endwert der Items der Listbox ist items.count -1.
Grüße
Klaus