Copyfile unter win98 funktioniert nicht?

[Grolle]

Hallo!
Das komische ist, dass es wohl teilweise an den Dateien liegt.
Die Textdateien werden kopiert. Das ganze ist ne Funktion zur
Wiederherstellung einer Datenbank. Hier nochmal der ganze Code:

Delphi-Quellcode:

procedure TForm1.Wiederherstellen1Click(Sender: TObject);
var
pfad : string;

begin
  SelectDirectory('Bitte Ordner auswählen:', '' ,pfad);

  if MessageDlg('     Achtung die Datenbank wird wiederhergestellt!      ' + #13#10 +
                '     Alle vorhandenen Daten werden hiermit gelöscht!    ',mtWarning,[mbOk, mbCancel],0)
  = mrok then
  begin
    copyfile(PChar(pfad +'\adressen.adi'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adi')),false);
    copyfile(PChar(pfad +'\adressen.adt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adt')),false);
    copyfile(PChar(pfad +'\einstellungen.txt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\einstellungen.txt')),false);
    copyfile(PChar(pfad +'\gruppen.txt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\gruppen.txt')),false);
    MessageDlg('     Die Wiederherstellung der Datenbank war erfolgreich!     ' + #13#10 +
               '     Bitte starten sie die Anwendung neu!                     ' ,mtInformation,[mbOK],0);
  end;
end;