Asignacion de Valor

[ecfisa]

Hola.

Es tál cuál como claramente te lo expuso Al. Y si quisieras ampliar un poco la funcionalidad podés utilizar conjutos (set), un ejemplo:

Código Delphi [-]
...
type
  TDiasDeSemana  = (Lunes, Martes, Miercoles, Jueves, Viernes, Sabado, Domingo);
  TDias = set of TDiasDeSemana;

procedure Revisar(Dia: TDiasDeSemana);
var
  FinDeSemana: TDias;
begin
  FinDeSemana:= [Sabado, Domingo];
  if Dia in FinDeSemana then
    ShowMessage('¡ Por fin !')
  else
    ShowMessage('Ya me lo temía...');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Revisar(Lunes);
  Revisar(Sabado);
  ...
end;

Saludos.