Ну, например так:
Код:
ADOQuery2.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
ADOQuery2.Fields[i].Value := ADOQuery1.Fields[i].Value;
ADOQuery2.Post;
Это если кол-во и порядок полей одинаков и нет BLOB полей + надо сделать ADOQuery2 редактируемым. Если хоть одно условие не выполняется, то надо больше информации. Что-то всегда можно придумать.