[Delphi] kopie von Datei verschieben

Hi, wie ache ich es bei Delphi, das wenn man auf einen Button klickt, das dann eine Datei in ein anderes Verzeich iss kopiert wird...aber nur kopiert, nicht verschoben...?

http://www.delphi-source.de/tipps/dateien/?id=77

Soll heisen:

Code:

---

CopyFile(PChar('von'), PChar('nach'), true);

---

thats all

Danke, aber das funzt nur mit genauem Dateinamen...also:

Code:

---

CopyFile(PChar(OpenDialog1.Filename), PChar('C:\1.txt'), true);

---

aber wie mach ichs, das die Datei den selben Dateinamen hat wie die geladene?

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;

---