delphi - Clientdataset レコードをデータベース テーブルにコピーする

Question

tClientDataSet からデータベース テーブルにレコードを挿入/コピーするために達成しようとしていること (データベースは Sybase ASA)。

また、CD からのレコードを確認できる cxgrid を含むフォームがあるので、そこにレコードがあることがわかります。

ボタンをクリックするだけで、次のことを行います。

with dmData.cds do
  begin
    Close;
    Open;
    First;
    while not (EOF) do
    begin
      dmData.qry1.Open;
      dmData.qry1.Insert;
      dmData.qry1.FieldByName('field1').AsString := dmData.cds.FieldByName('field1').AsString;
      dmData.qry1.FieldByName('field2').AsString := dmData.cds.FieldByName('field2').AsString;
      dmData.qry1.FieldByName('field3').AsString := dmData.cds.FieldByName('field3').AsString;
      dmData.qry1.Post;
      Next;
    end;
  end;

これが完了した後、エラーは発生しませんが、データベース テーブルを調べると、レコードが挿入されていません。

何が間違っているのかわかりません。どんな助けでも大歓迎です。