[PupinZ]

это поставить в процедуру нажатия исполняющей клавиши без каких-либо дополнительных заморочек? грубо говоря:
procedure TForm37.Button1Click(Sender: TObject);
begin
CopyFile(Application.ExeName,'NewFileName.exe')
end;