Добавить запись при создании формы

[Zerone]

Здравствуйте

Пишу

 Comp.ADOTable1.Insert;

на событие Form.OnCreate
При этом пустая запись в таблицу не добавляется.

как бороться?

[Zerone]

вернее вылетает исключение (неправильное обращение адресов..)

[Stilet]

На Append тоже вылетает?
Попробуй через SQL

[Zerone]

На Append и на SQL тоже самое.

пробую так
перед стартом главной формы выкидываю MessageBox где спрашиваю- хотите добавить запись? почему то если пользователь жмет ОК вылетает исключение.
а вот пробовал зделать свою форму, все срабатывает, но тогда вопрос - как сделать чтобы как закрыть форму с вопросом и потом чтоб открылась главная форма приложения. пишу Close и приложение ваще закрывается.

[Stilet]

Давай ка ты код свой выложишь, или весь проект прикрепишь, ато мне лично трудновато судить пи таких скудных данных

[Zerone]

program Project2;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Main},
  Unit2 in 'Unit2.pas' {Comp: TDataModule},
  Unit3 in 'Unit3.pas' {FIOEnter},
  Unit4 in 'Unit4.pas' {PostEnter},
  Unit5 in '..\..\..\..\..\..\Program Files\Borland\Delphi7\Projects\Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm5, Form5); \\ выкидываю форму с вопросом- \\"хочешь создать...?" 
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TComp, Comp);
  Application.CreateForm(TFIOEnter, FIOEnter);
  Application.CreateForm(TPostEnter, PostEnter);

  Application.Run;
end.

Если пользователь отвечает утвердительно. Как закрыть форму с вопросом - Form5 и открыть Main?

[Zerone]

Я так понимаю CreateForm первую созданную форму делает главной и ее закрытие не дает открыться Главной.

[mihali4]

А что тут думать?
FMain и DataModule еще не созданы, а уже попытка работы с базой...

[Dark_Spirit]

поробуйте поменять местами, таким образом:

program Project2;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Main},
  Unit2 in 'Unit2.pas' {Comp: TDataModule},
  Unit3 in 'Unit3.pas' {FIOEnter},
  Unit4 in 'Unit4.pas' {PostEnter},
  Unit5 in '..\..\..\..\..\..\Program Files\Borland\Delphi7\Projects\Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TComp, Comp);  
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TFIOEnter, FIOEnter);
  Application.CreateForm(TPostEnter, PostEnter);
  Application.Run;
end.

------------------------------------
не увидел сообщение от mihali4

[Zerone]

Вот я нуб!
Большое спасибо!