[masterhex]

Сделал как Вы сказали, но теперь жалуется на синтаксис INSERT-a

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev(id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser)');
fdm.ADOQuery1.SQL.Add('SELECT id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser 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;