[lmikle]

Next не пробовал вызывать

Код:

ZQuery2.First;
While Not ZQuery2.EoF Do
  Begin
    ZQuery1.Insert;
    For I := 0 To ZQuery2.FieldsCount-1 Do
      ZQuery1.FieldbyName(ZQuery2.Fields[i].FieldName).Value := ZQuery2.Fields[i].Value;
    ZQuery1.Post;
    ZQuery2.Next; // move to next record
  End;

ЗЫ. Если в наборе данных есть BLOB поля, то их надо обрабатывать особым образом. А таким кодом скопируются все поля (вне зависимости от порядка полей, надо только что бы все поля датасета-источника присутствовали в датасете-приемнике).

ЗЗЫ. Не уверен, что Zeos методы и свойства называются так же, как и в стандартных компонентах, так что проверь имена. Логика того или иного свойства, мне кажется, понятна из его имени.