mein prog läuft nicht komplett durch

[roxxy]

ich habe jetzt ein prog geschrieben,dass ein komplettes verzeichnis neu erstellt und sortiert, aber es läuft nicht komplett durch.
es hört einfach auf.

schaut einfach mal

Delphi-Quellcode:

procedure TForm1.btStartClick(Sender: TObject);
var
Dir,Mir,Wir,Kir,zeile,Ordner,Dateipfad,Config: string;
F:Tsearchrec;
datei:Textfile;
i,j,k,l,p1,p2,p3,p4,s1:integer;
Error:integer;
begin
  k:=0;
  i:=0;
  Error:=0;
  Error:=FindFirst((extractfilepath(paramstr(0))+'*.'),faDirectory,F);
    While (Error=0) do
      begin
        Dir:=F.Name;
        Dir:=uppercase(Dir);
        If (Length(Dir)=5) and (copy(Dir,1,4)='TABL') and (Dir[5]in['A'..'Z']) then
          begin
            i:=i+1;
            TOrdnerarray[i]:=F.Name;
          end;
        Error:=FindNext(F);
      end;
  findclose(F);
  Dir := extractfilepath(paramstr(0))+'Bibliothek';
  {if ForceDirectories(Dir) then
    showmessage(Dir+' '+'wurde erfolgreich erstellt');}
  ForceDirectories(Dir);
  for j:= 1 to i do
    begin
      Mir := Dir+'\'+(TOrdnerarray[j]);
        {if ForceDirectories(Mir) then
         showmessage(Mir+' '+'wurde erfolgreich erstellt');}
      ForceDirectories(Mir);
    end;
  for j:= 1 to i do
    begin
      Ordner := TOrdnerarray[j];
      Dateipfad := (extractfilepath(paramstr(0))+Ordner+'\');
      Config := (Dateipfad+'genlib.cfg');
      Assignfile(datei,Config);
      Reset(datei);
      while not Eof(datei) do
        begin
          readln (datei,zeile);
          if (uppercase(copy(trimleft(zeile),1,4))='NAME') then
            begin
              p1:=Pos('="',zeile)+10;
              p2:=PosEx('"',zeile,p1)-1;
              p3:=p1-8;
              p4:=p1+1;
              if copy(zeile,p4,1)= '-' then
                begin
                  zeile:=copy(zeile,p3,3);
                  k:=k+1;
                  TZeilenarray[k]:=zeile;
                  begin
                      Mir := Dir+'\'+Ordner;
                      Wir := (Mir+'\'+zeile);
                      {if ForceDirectories(Wir) then
                        showmessage(Wir+' '+'wurde erfolgreich erstellt');}
                      ForceDirectories(Wir);
                    end;
                end
              else
                begin
                  zeile:=copy(zeile,p1,p2-p1+1);
                  k:=k+1;
                  TZeilenarray[k]:=zeile;
                  begin
                      Mir := Dir+'\'+Ordner;
                      Wir := (Mir+'\'+zeile);
                      {if ForceDirectories(Wir) then
                        showmessage(Wir+' '+'wurde erfolgreich erstellt');}
                      ForceDirectories(Wir);
                    end;
                end;
            end
          else
            begin
              zeile := trimleft(zeile);
              zeile := uppercase(zeile);
              if (zeile[1] in ['A'..'Z']) then
                begin
                  s1 := Pos('="',zeile)+2;
                  zeile := copy(zeile,s1,8);
                  zeile := zeile+'.dwg';
                  begin
                    Mir := Dir+'\'+{(TOrdnerarray[j])}Ordner;
                    Wir := Mir+'\'+TZeilenarray[l];
                    Kir := Wir+'\'+zeile;
                  end;
                  If Fileexists(Dateipfad+'\'+zeile) then
                    begin
                    copyfile(pchar(Dateipfad+'\'+zeile),pchar(Kir),false);
                    end
                  else
                    showmessage('Die gesuchte Datei'+' '+(Dateipfad+zeile)+' '+'konnte nicht gefunden werden');
                end;
            end;
        end;
    end;
end;

es gibt keine fehlermeldung, gar nix!
könnt ihr mir helfen???
wäre supi

cu roxxy