delphi 把一个表的内容转到另一个表暂存时出错的解决方法。

我要把一个一条记录转移到另一个相同的表暂时存放，

procedure TForm1.Button4Click(Sender: TObject);
var
fieldno:Integer;
begin
fieldno:=0;
Table4.AppendRecord([nil,nil,nil]);
  for fieldno:=0 to Table4.fieldcount-1 do  begin
    Table4.Edit;
    Table4.Fields[fieldno].text :=table2.Fields[fieldno].text ;
    Table4.Post;
    Table4.Refresh;
    end;
table2.Delete;
end;

表2 放到 表4

在图中3和4的地，因为3处我删除了一个字段，总是出错。如果有不想显示 的内容，在dbgrid中删除就可以 了。