[F] Eigenes Programm in Autostart schreiben

[terrorzwerg]

Hallo ich will mein Programm mit

procedure TForm1.FormCreate(Sender: TObject);
var regist : tregistry;
begin
 regist:=tregistry.create;
 regist.rootkey:=HKEY_CURRENT_USER;
 regist.openkey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
 regist.writestring('{Name}','{Dateipfad}');
 regist.closekey;
 regist.destroy;
end;

in den Autostart einzutragen. Wenn ich einen bekannten Pfad eintrage funktioniert das auch. Allerdings soll das Programm in der Lage sein seinen aktuellen Pfad selbst zu ermitteln und entsprechend einzutragen, hat jemand ne Idee wie man das realisieren kann?