[Delphi] kopie von Datei verschieben

[Ineluki]

Code:

Procedure Button1Click(Sender:TObjct);
var filename:String;
begin
if Not(OpenDialog1.execute) then Exit;
filename:=ExtractFileName(Opendialog1.Filename);
CopyFile(PChar(OpenDialog1.filename),PChar('C:\Wo\Du\Auch\Hin\Willst\' + filename));
end;