جابجايي بين دو بانك

[ali_abbasi22145]

سلام
من براي جابجايي بين دو بانك برنامه زير را نوشتم و تا وقتي كه فيلدهاي ADOTable1وADOTable2 دوبانك دقيقا مثل هم باشند خيلي خوب كار مي كند و براي دوستان هم كه مي خواهند استفاده كنند مفيد است.

اما ADOTable1 يا ADOTable2 فيلد كم و زياد شود خطا مي دهد و مي خواهم اگر هر فيلد در جدول مبدا بود مثلا fname بعد fname مقصد پر شود اگر id جدول مبدا نبود آنوقت id مقصد چيزي پر نشود.

procedure TMainForm.BitBtn9Click(Sender: TObject);
var
i: Integer;
begin
ADOTable2.Insert;

for i := 0 to MainForm.ADOTable1.FieldDefList.Count - 1 do
begin//for ================================================== =================
If (LowerCase(MainForm.ADOTable1.FieldDefList.Strings[i]) <> 'sicard' ) and
(LowerCase(MainForm.ADOTable1.FieldDefList.Strings[i]) <> 'sicardformat' )
then
begin
ADOTable2.FieldByName(ADOTable2.FieldDefList.Strin gs[i]).AsString :=
ADOTable1.FieldByName(ADOTable1.FieldDefList.Strin gs[i]).AsString;
end;

end;//for ================================================== =================

ADOTable2.Post;
ADOTable1.Edit;
ADOTable1.Fields.DataSet.Delete;
end;