Копирование и вставка записей в БД

if form1.ADOQuery1.FieldCount=8 then begin
name:=AdoQuery1.Fields.FieldByName('Nam').AsString;
Inver:=AdoQuery1.Fields.FieldByName('Inver').AsString;
Suma:=AdoQuery1.Fields.FieldByName('Suma').AsString;
Sost:=AdoQuery1.Fields.FieldByName('Sost').AsString;
MestNax:=AdoQuery1.Fields.FieldByName('MestNax').AsString;
Koll:=AdoQuery1.Fields.FieldByName('Koll').AsString;
DataPos:=AdoQuery1.Fields.FieldByName('DataPos').AsDateTime;
DataSpis:=AdoQuery1.Fields.FieldByName('DataSpis').AsDateTime;
end;

form1.ADOQuery1.Append;
form1.ADOQuery1.FieldByName('Nam').AsString:=name;           //поле1
name:=AdoQuery1.Fields.FieldByName('Nam').AsString;          //поле1
form1.ADOQuery1.FieldByName('Inver').AsString:=Inver;           //поле2
Inver:=AdoQuery1.Fields.FieldByName('Inver').AsString;          //поле2
form1.ADOQuery1.FieldByName('Suma').AsString:=Suma;           //поле3
Suma:=AdoQuery1.Fields.FieldByName('Suma').AsString;          //поле3
form1.ADOQuery1.FieldByName('Sost').AsString:=Sost;           //поле4
Sost:=AdoQuery1.Fields.FieldByName('Sost').AsString;          //поле4
form1.ADOQuery1.FieldByName('MestNax').AsString:=MestNax;           //поле5
MestNax:=AdoQuery1.Fields.FieldByName('MestNax').AsString;          //поле5
form1.ADOQuery1.FieldByName('Koll').AsString:=Koll;           //поле6
Koll:=AdoQuery1.Fields.FieldByName('Koll').AsString;          //поле6
form1.ADOQuery1.FieldByName('DataSpis').AsDateTime:=DataSpis;  //поле7
DataSpis:=AdoQuery1.Fields.FieldByName('DataSpis').AsDateTime; //поле7
form1.ADOQuery1.FieldByName('DataPos').AsDateTime:=DataPos;  //поле8
DataPos:=AdoQuery1.Fields.FieldByName('DataPos').AsDateTime; //поле8
AdoQuery1.Post;