Faire une appli Lazarus console sans console

Quand on fait un programme simplissime comme:

Program TestCmd;
Uses
   Windows,SysUtils;
 
Var
   i: Integer;
Begin
   For i := 0 To 9999999 Do
   Begin
      Write(#13+IntToStr(i));
      sleep(500);
   End;
End.             

on obtient une conhost.exe attaché a notre petit programme.

Pour faire disparaitre ce conhost.exe voici les modifications a faire:

Program TestCmd;
{$APPTYPE GUI}  //-> Ajouter cette directive de compilation
Uses
   Windows,
   SysUtils;
 
Var
   i: Integer;
Begin
   For i := 0 To 9999999 Do
   Begin
      //Write(#13+IntToStr(i)); -> ne rien envoyer sur la console, sinon BUG!!!
      sleep(500);
   End;
End.          

Ajouter la directive de compilation {$APPTYPE GUI}

Ne rien écrire sur la console avec des Write ou WriteLn…

Et voila…