[lmikle]

Сообщение от Ekler1

как его правильно написать под этот код?
...
я уже всю голову себе сломал(

Код:

procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  if form11.ADOQuery1.Fields[i].FieldName <> 'Код' Then
    form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;

PS. Может все-таки книжку какую умную почитать сначала, а потом уже программировать?