Daten aus Listbox in Array speichern.

[Muddy]

Hallo Leute Ich möchte ein in einem Programm aus der Listbox Daten in ein Array peichern, aber leider kommt es dabei ständig zu einem Problem

Delphi-Quellcode:

procedure TForm1.EIntrgeListboxinAraybernehmen1Click(Sender: TObject);
var Vposition:integer;
    zeile,buffer: String;
begin
  while zaehler <> listbox1.Count-1 do 
    begin
      with Verkehr[zaehler] do
        begin
          zeile:=listbox1.Items[zaehler]; //inhalt von Zeile '10.03.2010/12943'
          Vposition:= pos('/',zeile);
          datum := copy(zeile,1,Vposition-1);
          delete (zeile,1,Vposition);  
          anzahl:= strtoint(zeile);
        end;
    end;
end;

Bitte um Hilfe