Finde Fehler in Programm nicht

[nahpets]

Im FormCreate fehlt das Befehl := TStringList.Create; und natürlich auch das Befehl.Free .
Daher scheitert dieser Teil:

Delphi-Quellcode:

 for i := 1 to Update.Count - 1 do
 begin
   Befehl.Clear; <--- hier müsste die Schutzverletzung auftreten!!!
   ExtractStrings([';'],[],PChar(Update[i]),Befehl);

   //Befehl auswerten
   if Befehl[0]='dir' then CreateDir(Befehl[1]);
   if Befehl[0]='del' then DeleteFileDir(Befehl[1]);
   if Befehl[0]='get' then
   begin
    Inc(FileCount);
    FTP.Size(Befehl[1]);
    FTP.Get(Befehl[1],Befehl[2],true);
    pbGesamt.Position:=pbGesamt.Position+1;
   end;
 end;