[masterhex]

Разобрался, для тех кто столкнулся с такой же задачей :

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
try
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device AS d WHERE d.sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.ExecSQL;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
except
on e:Exception do
end;
end;

Дело в том что для ВВОДА данных (INSERT) нельзя указывать -

Код:

fdm.ADOQuery1.Active:=True;

а надо именно исполнение -

Код:

fdm.ADOQuery1.ExecSQL;

Спасибо всем за внимание!