Update de varios registros

[jonydread]

Estimados, buenas tardes, necesito actualizar varios registros de una tabla segun los que se seleccionen
ejemplo.

reg1 ---- activo
reg2 ---- activo
reg3 ---- activo

si selecciono todos

reg1 ---- desactivado
reg2 ---- desactivado
reg3 ---- desactivado

he intendado de la sgte manera con stringlist sin conseguirlo

Código Delphi [-]
procedure Tformsierras.BitBtn15Click(Sender: TObject);
var
num: TStringList;
begin
zquery1.SQL.Text := 'SELECT sierra from Actual';
zquery1.Open;
num:= tstringlist.Create;
num.Add(zQuery1.fieldbyname('sierra').AsString);
Zquery1.Close;

Zquery1.sql.text := 'UPDATE Sierras SET Estado=:Estado where Numero =:Numero';
  ZQuery1.ParamByName('Estado').AsString := 'No informado';
  ZQuery1.ParamByName('Numero').AsString := num[0];
  ZQuery1.ExecSQL;
  zQuery1.SQL.Clear;
  Zquery1.Close;
  ZQuery4.Refresh;

end
end;

favor si alguien tiene una idea agradeceria mucho.


Saludos