[[__hector]]

No hay ninguna, sino ExtractFileName, pero esa te trae tambien la extension.

Puedes construirte una utilizando pos, copy, ExtractFileName y ExtractFilePath para construirte una a tu medida. Algo como:

var 
Archivo : string;

begin
   archivo := copy(ExtractFileName(Application.ExeName), 1, pos(ExtractFileExt(Application.Exename), ExtractFileName(Application.ExeName)) - 1);
end;