create table (delphi)

[Johny91]

Всем привет. Пишу такой код:

a:=strngrd1.cells[strngrd1.col,strngrd1.row]+'0'+inttostr(cbb1.ItemIndex+1)+(cbb2.Text);
edit1.Text:=a;
   form1.adoquery1 := form1.ADOQuery1.Create(Application);

 form1.adoquery1.SQL.Text := 'create table '+edit1.text+'(Код int, Время_с string(10), До string(10), Событие string(25), Место string(25))';
form1.adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Admin\Рабочий стол\курсовая календарь\11.mdb;Persist Security Info=False';
 form1.adoquery1.ExecSQL;

Таблицу создаёт, однако при выходе пишет: Invalid pointer operation.
Подскажите пожалуйста господа.

[Прик]

Эта строка лишняя:

  form1.adoquery1 := form1.ADOQuery1.Create(Application);

К тому же, не корректная.

[Johny91]

да, действительно лишняя.
спасибо большое