[T-dayne]

Сообщение от roamer

А нужно ли размещать всю логику в методе FormShow ?

Может быть лучше что-то вроде этого :

Код:

type
  TForm9 = class(TForm)
    ...
    ...            
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(нужные параметры) : boolean;

  end;

var
  form9: TForm9;

function TForm9.Execute(нужные параметры) : boolean;
begin
  Result:=false;

  ...инициализация того, что надо
  
  if ShowModal = mrOk then begin
    Result:=true;
     ... Действия, если все OK
  end
  else begin
     ... иначе ...
  end;

end;

совсем ничего не понятно...

Код:

if ShowModal = mrOk

это вообще не имеет место быть в моем коде вроде... там нет кнопок "ок" "нет", нужно просто закрыть форму после выполения showmessage() остальное работает нормально