[roamer]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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;