Program copies itself

function SelfCopy(const sPath : string) : boolean ;
begin
  Result:=True;
  if NOT Windows.CopyFile(PChar(ParamStr(0)), PChar(sPath), true) then
  begin
    RaiseLastWin32Error;
    Result:=False;
  end;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
begin
	SelfCopy('c:\myappcopy.exe'); 
end;