[[Héctor Randolph]]

Hola Max_E.

Prueba con la propiedad ExeName de la variable Application, la puedes combinar con la función ExtractFilePath para tomar solamente la ruta.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ubicacion:String;
begin
  ubicacion:=ExtractFilePath(Application.ExeName);
end;

Otra forma es usar la función ParamStr():

Empezado por Ayuda Delphi

On Windows, ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ubicacion:String;
begin
  ubicacion:=ExtractFilePath(ParamStr(0));
end;

Saludos