Dudas con Hilo en ejecución

[danielmj]

hola,

aqui pongo el codigo de toda la unidad del formulario principal, desde el que se hace la llamada a los otros formularios:

Código Delphi [-]
unit main;

interface

...

type
  TInicio = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Inicio: TInicio;

implementation

{$R *.dfm}

uses ZIZ, Unir;

procedure TInicio.Button1Click(Sender: TObject);
begin
  principal.Show; //Modal;
end;

procedure TInicio.Button2Click(Sender: TObject);
begin
  join.Show; //Modal;
end;

procedure TInicio.Button3Click(Sender: TObject);
begin
  close
end;

end.

Como podeis ver en el "button3" que es el que termina el programa y sale, solo tiene "close", no hay nada mas, por eso me tiene descolocado ese error, ademas ocurre sin hacer nada mas, solo ejecutar y salir y ya falla.

Gracias y saludos.