Not in edit mode

[KAYO]

Intento realizar una actualiacion de registro en una tabla de FB pero me da el error. NOT IN EDIT MODE..... POR QUE?

      i := 0;
      ProgressBar1.Min :=  0;
      DM.TListasClientesCierre.Open;
      DM.TListasClientesCierre.Last;
      ProgressBar1.Max :=   DM.TListasClientesCierre.RecordCount;
      DM.TListasClientesCierre.First;
      while not Dm.TListasClientesCierre.eof do begin
          i := i + 1;
          ProgressBar1.Position := i;
          Dm.THistoricoClientes.Edit;
          Dm.THistoricoClientes.Append;
          Dm.THistoricoClientesCODIGO.AsString :=      DM.TListasClientesCierreCODIGO.AsString;