ubicacion del ejecutable

[Max_E.]

Hola a todos:

quiciera saber si hay algun codigo para saber la ubicacion del ejecutable que estoy utilizando en ese momento es decir en tiempo de ejecucion por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
ubicacion:string;
begin

ubicacion:=xxxxxx(proyect.exe);
edit1.text:=ubicacion;

end;

en el edit se veria 'C:nueva carpeta\demos\prueba de busqueda'

No creo que sea tan facil como esto pero agradeseria si alguien me pudiese ayudar