[jafera]

Gracias de nuevo

En el OnShow está lo que puse en el primer post y en el OnCreate esto:

Código Delphi [-]
 
procedure TF_Inici.FormCreate(Sender: TObject);
begin
        Path := ExtractFilePath(ParamStr(0)) + 'Ajuda\Rebuts_1.0.hlp';
        if FileExists(Path) then
        begin
                Application.HelpFile := Path;
        end;
        Vers:=F_Moduldades.GetAppVersion; 
end;

Ejecutado con un break en el create, pasa perfectamente no se para.

Saludos