Непонятное Acces Violation при вызове Create у формы из Avaliable forms

[Человек_Борща]

Привет всем!
Возникла проблема с созданием формы которая находится в списке Avaliable Forms:

procedure TMainForm.AppsAddBtnClick(Sender: TObject);
var
  AppAddForm:TAddAppForm;
begin
  AddAppForm := TAddAppForm.Create(self); // <<= Acces Violation at Addres 0054E7B8 in module 'Someapp.exe' Read of addres 000000099
  with AddAppForm do
  try
{some code}
  finally
    Free;
  end;
end;

При вызове Create(Self); (Пробовал ещё Create(nil)), выскакивает Acces Violation.

Помогите как это решить?

[Пепел Феникса]

OnCreate покажи.
точно при Create ошибка?(малоли про трассировку не слышал(пошаговая отладка))

[Человек_Борща]

procedure TAddAppForm.FormCreate(Sender: TObject);
begin
  case SettingsForm.ShowHintsChk.Checked of
    True: AddAppForm.ShowHint := True;
    False: AddAppForm.ShowHint := False;
  end;
end;

Вот..

а именно AV при Create(Self)

[Пепел Феникса]

SettingsForm существует?

[Stilet]

Человек_Борща

Странный код...
Не проще ли

procedure TAddAppForm.FormCreate(Sender: TObject);
begin
    ShowHint := SettingsForm.ShowHintsChk.Checked;
end;

И потом. Прикрепи сюда архив с проектом.

[Человек_Борща]

Пепел Феникса:
Да существует:

  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSettingsForm, SettingsForm);
  Application.CreateForm(TSelfUpdatingForm, SelfUpdatingForm);
  Application.CreateForm(TAboutForm, AboutForm);

Stilet:
спасибо за упрощение моего велосипеда=)

[GunSmoker]

Сообщение от Человек_Борща

procedure TAddAppForm.FormCreate(Sender: TObject);
begin
  case SettingsForm.ShowHintsChk.Checked of
    True: AddAppForm.ShowHint := True;
    False: AddAppForm.ShowHint := False;
  end;
end;

Вот..

а именно AV при Create(Self)

А чему, по-вашему, равна переменная AddAppForm в этом коде, если форма ещё в процессе создания, а значение переменной AddAppForm будет присвоено тут:

AddAppForm := TAddAppForm.Create(self);

Избавляйтесь от глобальных переменных. Они - зло.

[Пепел Феникса]

в дополнение:
нужно как написал Виталий

GunSmoker, там она и локальная тоже есть, но толку не меняет

[Человек_Борща]

т.е. так?:

procedure TMainForm.AppsAddBtnClick(Sender: TObject);
var
  AppForm:TAddAppForm;
begin
  AddAppForm:=AddAppForm.Create(Self);
  with AppForm do
  begin
    try
код
    end;
    except
    Free;
    end;
  end;
end;

procedure TAddAppForm.FormCreate(Sender: TObject);
begin
 ShowHint:=SettingsForm.ShowHintsChk.Checked;
end;

Всеравно выскакивает AV

[Stilet]

Человек_Борща

Думаю что тебе никто не скажет не пощупав проект.