Fechar aplicação após um tempo de 5 Segundos

[Maykon]

A forma que utilizo no meu launcher:

procedure TForm1.PNGButton3Click(Sender: TObject);
begin
  if (PNGButton3.Visible = True) then
  begin
    Registry.WriteString('ConnectIp', '192.99.103.31');
    Form1.Hide;
    winexec('main.exe connect /u192.99.103.31  /p42410', sw_normal);
    ExitProcess(0);
  end;
end;

[Ravoc]

A forma que utilizo no meu launcher:

procedure TForm1.PNGButton3Click(Sender: TObject);
begin
  if (PNGButton3.Visible = True) then
  begin
    Registry.WriteString('ConnectIp', '192.99.103.31');
    Form1.Hide;
    winexec('main.exe connect /u192.99.103.31  /p42410', sw_normal);
    ExitProcess(0);
  end;
end;

Me envia uma foto do seu Launcher?