Cerrar formularios

[roman]

Supongo que tienes código en el evento OnActivate de FPrincipal que no quieres que vuelva a ejecutarse. En ese caso quiza dicho código estaría mejor en el evento OnShow. De no ser esto factible entonces podrías valerte de una variable booleana que te sirva de bandera para saber si es la primera vez que se ejecuta dicho evento:

Código Delphi [-]
procedure TFPrincipal.FormActivate(Sender: TObject);
begin
  if PrimeraVez then
  begin
    { Tu código }
  end;
end;

// Saludos