[ecfisa]

Hola pacopepin.

Acabo de hacer una prueba en otro equipo con W7 y de este modo funciona como esperas:

Código Delphi [-]
...
begin
  Application.Initialize;
  with TFSPlash.Create(nil) do
  try
    if ShowModal = mrOK then
    begin
      //...
      Application.CreateForm(TFPrincipal, FPrincipal);
      Application.Run;
    end;
  finally
    Free;
  end;
end.

(Con Delphi 7)

Saludos.