SQL: Insert и Delete в чем ошибка?

[FReeMAN(Q)]

Доброго всем времени суток..
проблемка в следующем есть таблица в которую необходимо внести данные и удалить из неё данные по запросу..


Ввод данных

procedure TForm2.Button1Click(Sender: TObject);
if form1.ComboBox3.ItemIndex=0
then
begin
form1.query2.Active:=false;
form1.Query2.SQL.Clear;
form1.Query2.SQL.Add('insert into pokupka (Pnom, Vid, Cena, Mesto, Opis, Rekvizit)');
form1.Query2.SQL.Add('values (11, "yyyy", 111111, "mmmm", "opopop", "22022022" )');
form1.query2.Active:=true;

form1.query2.Active:=false;
form1.Query2.SQL.Clear;
form1.Query2.SQL.Add('select * from pokupka');
form1.Enabled:=true;
form1.TabbedNotebook1.ActivePage:='Покупка';
form1.query2.Active:=true;

form2.Close;

end;
end;

И удаление

procedure TForm1.Button4Click(Sender: TObject);
begin

Query1.Active:=false;
Query1.SQL.Clear;
query1.SQL.Add('delete from pokupka');
query1.SQL.Add('where pnom = 11');
query1.active:=true;

Query1.Active:=false;
Query1.SQL.Clear;
query1.SQL.Add('select * from pokupka');
query1.active:=true;
end;

В обоих случаях выдается ошибка "Error creating cursor handle" но добавление и удаление проходит как надо.. в чем проблемма?

[evg_m]

надо так
query1.SQL.text:='insert....';
query1.ExecSQL;

[FReeMAN(Q)]

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

надо так
query1.SQL.text:='insert....';
query1.ExecSQL;

Всё работает..
Благодарю за помощь!