Foros Club Delphi - Ayuda codigo delphi

Hola!!
Acabo de empezar con este lenguaje (es el primero) y me esta gustando bastante.
He recurrido a vosotros para ver si podeis echarme una manita con el codigo =)

Código:

unit puff;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,  Forms,

  Dialogs;



type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation

var

 si:string;

 no:string;

 nada:string;

 isil:string;

  label

   Principio;

 begin

 principio:

 nada:='¿Por qué no me contestas?';

 si:='no, si ya lo sabia';

 no:='mentirosillo, que se que te van las falditas';

 isil:=inputbox ('Gay test','¿Eres gay?','');



     while (isil<>'si''no') do



        begin

           if (isil='no') then showmessage(no);

           if (isil='no') then exit;

           if (isil='si') then showmessage (si);

           if (isil='si') then exit;

           if (isil='si''no') then exit;

           IF not (isil='si''no') then showmessage (nada);

           if (isil<>'si''no') then goto principio;

      end;



{$R *.dfm}



end.

Como veis es una autentica chorrada, pero acabo de empezar hoy mismo y me ha costado un poquito sobre todo para hacer que volviera a preguntar y para que al contestar no volviera a mostar la variable "nada"
He aprendido "bastante" (al menos me ha sido de utilidad para saber cositas muy muy basicas).
La duda es : ¿como puedo hacer para que no se abra una ventana de formulario en blanco tras la ejecucion de la aplicacion? He buscado pero no he logrado encontrar nada, quizas no lo hice de la manera adecuada (quien sabe jeje).
Bueno, sin mas, muchas gracias y un saludo :)