[masterhex]

такая ошибка при таком коде:

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

Почему то еще указатель ошибки показывает на

Код:

fdm.ADOQuery2.SQL.Clear;

тогда как когда код был просто для просмотра, ошибок не было вообще.