Stuff

var
  Form3, Form2: TForm;
  StartTime: TDateTime;
begin
  Application.Initialize;
  Application.Title := 'Gerador de Post - Brazukas.org';
  StartTime := Time;
  Form3 := TForm3.Create(nil);
  Form3.Show;
  Form3.Update;
  Form3.BringToFront;
  repeat
    Application.ProcessMessages;
  until Time-StartTime > 5.0/SecsPerDay;
  Form3.Close;
  FreeAndNil(Form3);
  Form2 := TForm2.Create(nil);
  Form2.Close;
 if Form2.ShowModal = mrOk then
 begin
  Application.CreateForm(TPrincipal, Principal);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TGeradorhtml, Geradorhtml);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TSobre, Sobre);
  Application.CreateForm(TVisualizador, Visualizador);
  Application.Run;
  end
  else
  Application.Terminate;
  end.