Se me abre una pestaña control.inc
 

Saludos de nuevo.

Tengo un botón con el siguiente código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  z:=TComplejo.NuevoNumero;
  If z.CantidadRectangularValida(Edit1.text,Edit2.text) then
     showmessage('numero valido')
  else
      showmessage('numero no valido');
  z.free;
end;

donde TComplejo es una clase que definí en una unit a parte , NuevoNumero es un constructor y CantidadRectangularValida es una función que devuelve un booleano.

La cuestión es que cuando el booleano es falso muestra el diálogo conforme el número no es válido y sin problemas, pero si el booleano es verdadero muestra el diálogo normal pero al clickar después a ok me salta error "Project project2.exe raised exception class 'External: SIGSEGV" y se me abre una pestaña con código llamada control.inc marcando el final de

Código Delphi [-]
procedure TControl.Click;
begin
  //DebugLn(['TControl.Click ',DbgSName(Self)]);
  if (not (csDesigning in ComponentState)) and (ActionLink <> nil) and
     ((Action=nil) or (@FOnClick <> @Action.OnExecute) or Assigned(FOnClick)) then
    ActionLink.Execute(Self)
  else
  if Assigned(FOnClick) then
    FOnClick(Self);
end;

¿Álguien podría explicarme porqué puede suceder esto?

Muchísimas gracias de antemano por su atención y tiempo.