Zapisywanie do bazy mysql

begin
if not ClientDataSet1.Active then ClientDataSet1.Open;
ClientDataSet1.DisableControls;
  try
    ClientDataSet1.First;
    while not ClientDataSet1.EOF do
    begin
      try
        ClientDataSet1.Edit;
        try

       ClientDataSet1.Fields[2].Value:= 666;

       ClientDataSet1.Post;

        except
          //record cannot be posted. Cancel;
          ClientDataSet1.Cancel;
        end;
      except
        //Record cannot be edit. Skip
      end;
      ClientDataSet1.Next;
    end; //while
  finally
 ClientDataSet1.EnableControls;
  end; //try-finally

showmessage(inttostr(ClientDataSet1.Fields[2].Value));