[Ferrer]

Muchíssimas gracias, de verdad.
Despues de trastear un poco, probar cosas y escribir un apr de líneas de código más lo he dejado asi:

Código Delphi [-]
Function TFrInserir.crearptr:Boolean;
var x:integer;
begin
  result:=true;
  new(actvol);
  actvol^.Comp:=ecomp.text;
  If TryStrtoint(enum.text,x) Then Begin  //IF 1
    If Uca.Cerca(StrToInt(enum.Text))=NIL Then Begin  //IF 2
      actvol^.Num:=StrToInt(enum.Text);
      actvol^.Avio:=Eavio.Text;
      actvol^.desti:=edesti.Text;
      If TryStrToInt(eptotal.Text,x) Then actvol^.ptotal:=Strtoint(eptotal.Text) Else Begin    //ELSE 3
        ShowMessage('Numero total de passatgers incorrecte');;
        result:=false;
        eptotal.Text:='';
      end  //ELSE 3 END
    End {IF 2 END} Else Begin //ELSE 2
      ShowMessage('Aquest vol ja existeix');
      result:=false;
      enum.Text:='';
    End  //ELSE 2 END
  End{IF 1 END}  Else Begin //ELSE 1
    ShowMessage('Numero de vol incorrecte');
    result:=false;
    enum.Text:='';
  end; //ELSE 1 END


end;

Código Delphi [-]
procedure TFrInserir.BoknormalClick(Sender: TObject);
begin
If Crearptr Then Begin;
  UCA.insertf(actvol);
  close;
end;
end;

Me temo que al menos en ese formulario ya no se puede petar