Удалить через SQL строку в таблице ADOQuery1

[UNToxa]

Нужно удалить из таблицы строку где поле id=1. Использую следующий код, и получаю ошибку Missing SQL property

var update1:string;
s1:integer;
begin
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.Active:=True;
ADOquery1.Open;
s1:=1;

ADOQuery1.SQL.Text :='DELETE from table1 WHERE id = ' + IntToStr(s1) + ';';
ADOQuery1.ExecSQL;

ADOquery1.Active:=False;
ADOquery1.Active:=True;
end;

как сделать правильное удалени?

[asmodey1]

Кошмар какой !
Перед заданием действия (команды SQL) принято закрывать квэрик. (Он, конечно, и сам закрывается, но так уж принято)
А вот это:

ADOquery1.Active:=False;
ADOquery1.Active:=True;

Вообще изврат - ведь все уже сделано при помощи ExecSQL... А при этом квэрик не открывается.
Так что если хотите осуществить визуальный контроль, то просто ADOquery1.Open (Кстати, согласитесь, что короче, чем ADOquery1.Active:=True, так же, как и ADOquery1.Close короче, нежели ADOquery1.Active:=False).
З.Ы.
А почему у вас компонент называется (по буквам) ADнольquery1 ? Это вы ему специально такое название дали - чтобы враги не догадались ?

[UNToxa]

В итоге получилось сделать так:

procedure TForm4.Button1Click(Sender: TObject);
var update1:string;
s1:integer;
begin
s1:=strtoint(DBEdit1.text);
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM table1 WHERE id = ' + IntToStr(s1) + ';');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM table1');
ADOQuery1.Active:=True;
except
on e:Exception do
end;
Form2.ADOConnection1.Connected:=false;
Form2.ADOConnection1.Connected:=true;
ADOquery1.Active:=False;
ADOquery1.Active:=True;
Form2.ADOquery1.Active:=False;
Form2.ADOquery1.Active:=True;
close;
end;