procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
IBTable1.Active:=True;
While not ClientDataSet1.Eof do
begin
IBTable1.Insert;
For i := 0 to 8 do
IBTable1.Fields[i].Value := ClientDataSet1.Fields[i].Value;
ClientDataSet1.Next;
IBTable1.Post;
end;
IBTable1.Active:=False;
end;