procedure TForm1.FormActivate(Sender: TObject);
begin
  if bFirstTime then
    Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bFirstTime := True;
end;

procedure TForm2.FormActivate(Sender: TObject);
var
  Loop: Integer;
begin
  if bFirstTime then
  begin
    for Loop := 0 to 9 do
    begin
      Caption := IntToStr(Loop);
      Sleep(150);
    end;
    Close;
  end;
  bFirstTime := False;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
  bFirstTime := True;
end;