[alcon678]

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 =)

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