[masterhex]

Все перепробовал, уже не знаю что делать, вопрос остается в силе
Вот последний вариант:

Код:

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 d.id_type, d.model, d.sn, d.in, d.data_schet, d.number_schet, d.price, d.date_prihod,date_ystanovki, d.id_personal, d.garant_do, d.olduser FROM device AS d WHERE d.sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

среди перечисленных полей нет автоинкремента