CopyFile() kopiert letzte File nicht.

[br0wny]

Hallo liebes Delphi-Praxis Forum,

ich möchte in meiner kleinen Anwendung dBase-Files sichern.

Zu aller erst wähle ich ein paar Files aus und speichere in eine Listbox die Pfade.
Meine kleine Schleife hier soll die ausgewählten Dateien (welche sich alle in ein und demselben Ordner 'D:\abcjob\' befinden) in selbigen Ordner sichern.

Nur leider kopiert CopyFile() mir leider alle Files außer die letzte in der Listbox.
Wenn ich nur eine File ausgesucht habe, wird diese erst gar nicht kopiert.

Folgenden Code habe ich erstellt:

Delphi-Quellcode:

procedure sicherungskopie();
var
iZ      : Integer;
wcLok   : PWideChar;
ss      : array[0..256] of char;
begin

 for iZ := 0 to hauptfenster.Form1.ListBox1.Items.Count-1 do begin
  wcLok := pwidechar('D:\abcjob\' + 'SICHERUNGSKOPIE_' + IntToStr(iZ) + '.dbf');
  StrPCopy(ss, hauptfenster.Form1.ListBox1.Items[iZ]);    
  CopyFile(ss, wcLok, false);       
 end;

end;

Auch lösche ich vor dem Test zur Sicherheit immer nochmals alle Sicherungskopien..

Arbeite noch leider nicht so lang mit Delphi und sehe bei so "wenig" Code leider den Fehler nicht.
Ich hoffe Ihr könnt mir helfen.

Mit freundlichen Grüßen aus Nürnberg

br0wny.