Kopieren klappt erst und dann wieder nicht - Fehlersuche

[Sam Razr]

Hey,

ich schreibe grade ein kleines Programm für meine Webgallerien. Zweimal klappt die Operation kopieren, beim dritten mal nicht. Aber ich finde nicht den Fehler. Vielleicht kann mir einer helfen.

Hier der entsprechende Code:

Delphi-Quellcode:

var i:integer;
var Quelldatei, Zieldatei,kind,smalldir,tndir: string;

//------------------

//Origfiles
  mkdir(Dir + '\Original Files');

  if combobox1.text='Concertphotos' then kind:='G' else kind:='D';
  if combobox1.text='Session' then kind:='S' else kind:='D';
  if combobox1.text='Other Photos' then kind:='D' else kind:='D';


  //Variablen Setzen
  smalldir:=Dir + '\' + kind + combobox4.Text + combobox3.Text + combobox2.Text + edit2.Text;
  tndir:=Dir + '\' + kind + combobox4.Text + combobox3.Text + combobox2.Text + edit2.Text + '\tn';

  //Sized files
    mkdir(smalldir);
  //Thumbfiles
    mkdir(tndir);

//-------------------------------------------------------------
//Kopieren

//Abarbeiten der Files im ordner durch TListbox
for i:=0 to filelistbox1.Count-1 do
  begin

  //Kopieren in das Verzeihnis für die Sized Images

    Quelldatei:=filelistbox1.Items.Strings[i];
    Zieldatei:=smalldir+'\'+filelistbox1.Items.Strings[i];

  if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
    ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');

  //Kopieren in das Verzeichnis für Thumb Images

    Zieldatei:=tndir+'\'+filelistbox1.Items.Strings[i];

      if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
        ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');

    //Testausgabe des Pfades am Formular: Test erfolgreich, Pfad 100% OK
      label8.caption:=Dir + '\Original Files';

    //Kopieren in das Verzeichnis Originale Bilder
    Zieldatei:=Dir+'\'+'Original Files';

      if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
      ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');

      //DirectoryListbox Updaten
      directorylistbox1.Update;

  end;

Vielleicht kann mir ja hier wieder jemand helfen.

Sam