dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
while NOT dm.Dbf2.Eof do
begin
  dm.Table1.Open ;
  dm.Table1.Append ;
  dm.Table1['noref'] := dm.Dbf2['Wbno'];
  dm.Table1['cycle'] := dm.Dbf2['cycle'];
  dm.Table1['nama'] := dm.Dbf2['nama'];
  dm.Table1['addrs'] := dm.Dbf2['addr'];
  dm.Table1['kodepos'] := dm.Dbf2['kodepos'];
  dm.Table1['upload'] := dm.Dbf2['Pudt'];
  dm.Table1['bank'] := sedit3.Text ;
  dm.Table1.Post ;
  dm.Table1.Close ;
  dm.Table1.Open ;
end;

Function CopyDataset(Src,Dst:TDataset):Integer;
var
  I:Integer;
  Err:Boolean;
begin
  result:=0;
  Err:=false;
  src.first;
  while (not src.Eof) and (not Err) do begin
    dst.Append;
    try
      for i:=0 to dst.FieldCount-1 do
        dst.Fields.Fields[i].Value:=src.Fields.Fields[i].Value;
      dst.Post;
      inc(result);
    except
      on E:Exception do begin
        dst.Cancel;
        err:=true;
      end;
    end;
    src.Next;
  end;
end;