[jonydread]

Lo realice segun lo explicado de esta forma y en IniciarTransaccion; y demas me indica undeclared indentifier, al quitar la transaccion ejecuto y no hace el update uso SQlite y la verdad no manejo mucho esto ojala me puedas ayudar

Código Delphi [-]
 IniciarTransaccion;
  try
zquery1.SQL.Text := 'SELECT sierra from Actual';
zquery1.Open;

Zquery1.sql.text := 'UPDATE Sierras SET Estado=:Estado where Numero =:Numero';
  ZQuery1.ParamByName('Estado').DataType := ftString;
  ZQuery1.Prepared := True;
  while not ZQuery1.Eof do
    begin
      ZQuery1.ParamByName('Estado').AsString := 'No informado';
      ZQuery1.ParamByName('Numero').AsString := ZQuery1.fieldbyname('sierra').AsString;
      ZQuery1.ExecSQL;
      ZQuery1.Next;
    end;
CommitTransaccion;
    ZQuery4.Refresh;
  except
RollbackTransaccion;
    raise;
  end;