[roamer]

Можно сделать так :

Код:

type
  TADD_NEW = class(TForm)
  ...              
  ...              
  public
    function Execute : boolean;
  end;
    
var
  ADD_NEW: TADD_NEW;

implementation
  
function TADD_NEW.Execute : boolean;
begin
  Result:=false;
  ...    
  ...    
  if ShowModal=mrOk then begin
     Result:=true;
  end;        
end;

В обработчике :
procedure TADD_NEW.Button1Click(Sender: TObject);

заменить ЭТО :
ADD_NEW.Close; // В этом месте появляется абстрактная ошибка

на ЭТО :
ModalResult:=mrOk;

Форму вызывать так :
ADD_NEW.Execute;