copyfile geht nicht

[Dr. Jack]

die datei ist umbenannt, zielverzeichnis nochmal neu erstellt,

aber leider alles beim alten... hier mal der ganze quellcoder der procedure, vielleicht hab ich was übersehen.

procedure TEinkaufsliste.BitBtn1Click(Sender: TObject);
begin
Case MessageDlg ('Soll diese Einkaufsliste gespeichert werden?', mtConfirmation, [ mbYes, mbNo], 0) of
mrYes:

if not CopyFile(PChar('C:\KS\EV\ev.txt'), PChar('D:\KS\EV\EVSAVE\ev.txt'), false) then
ShowMessage('Fehler beim Erstellen der Kopie!'#13#10 + SysErrorMessage(GetLastError));

mrNo: ;

End;

einkaufsliste.close;
end;