Projekt kopieren

[CazperFuture]

alos ich hab mal eben was probiert:
man kann ja den ordner in dem sich die datei befindet in einem label anzeigen lassen, das sieht dann so aus:

Delphi-Quellcode:

procedure TFormular.BitErmittelnClick(Sender: TObject);
begin
LabelAnzeige.Caption := ExtractFilePath(ParamStr(0));
end;

allerdings steht dann da nur das verzeichnis & nicht "F:\blabla\Project1.exe"
kann mir da jemand helfen, denn sonst ich will ja das hier versuchen:

ShellFileOperation(ExtractFilePath(ParamStr(0)), 'E:\', FO_Copy); Es gibt aber eine fehlermeldung, da dort nur das verzeichnis & nicht mit der passenden datei angegeben ist.
habt ihr einen rat?