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
public
end;
var
Inicio: TInicio;
implementation
{$R *.dfm}
uses ZIZ, Unir;
procedure TInicio.Button1Click(Sender: TObject);
begin
principal.Show; end;
procedure TInicio.Button2Click(Sender: TObject);
begin
join.Show; 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.