Obter o nome da pasta onde esta o executavel

Para  obter a pasta onde esta o executável Delphi

Function ObterNomePastaExecutavel;
begin
   Result := ExtractFilePath(ParamStr(0));
end;