[Vayrus]

Приветствую, все работает, но не совсем так как хотелось бы, моя форма опций (OptionsForm) находится в AvailableForms, в ее юните забит следующий код:

Код:

....................................................................................
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwner :TComponent); override;
  end;

var
  OptionsForm: TOptionsForm;

implementation

{$R *.dfm}

constructor TOptionsForm.Create(AOwner: TComponent);
begin
  if FileExists('Options') then
  begin
    CreateNew(AOwner);
    ReadComponentResFile('Options', Self);
  end
  else
    inherited Create(AOwner);

  { поместите здесь код в стиле 'OnCreate' }
  Self.Hide;
end;

procedure TOptionsForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
WriteComponentResFile('Options', Self);
end;

................................................................................

А в основной форме (MainForm) вызываю так:

Код:

procedure TMainForm.N1Click(Sender: TObject);
begin
OptionsForm.ShowModal;
end;

Так вот, при использовании кода сохранения и загрузки формы, форма с опциями при старте программы отображается сразу, когда как без данного кода она отображается только при нажатии кнопки вызова опций, может кто в курсе как организовать создание формы настроек и сохранение/загрузку ее настроек данным способом ?