Código Delphi [-]
Case colour of
  Red    : ShowMessage('The colour is Red');
  Green  : ShowMessage('The colour is Green');
  Blue   : ShowMessage('The colour is Blue');
  Yellow : ShowMessage('The colour is Yellow');
  else ShowMessage('The colour is Unknown!');
end;

Código Delphi [-]
case codi of
   1:
     begin
       cursa.categoria:='E-UCI';
       cursa.competicion:='C';
     end;
   2:
     begin
       ...
   end;

Código Delphi [-]
  ...
  cursa.competicion := 'C';
  case codi of
    1  : cursa.categoria := 'E-UCI';
    2  : cursa.categoria := 'ELITE';
    3  : cursa.categoria := 'SUB23';
    4  : begin
           min := StrToInt(RightStr(DateToStr(Date), 4)) - 17;
           max := StrToInt(RightStr(DateToStr(Date), 4)) - 18;
           if StrToInt(Copy(cursa.codiUCI,4,4)) = min then
             cursa.categoria := 'JUN-1'
           else if StrToInt(Copy(cursa.codiUCI,4,4)) = max then
             cursa.categoria := 'JUN-2';
         end;
    80 : cursa.categoria := 'SUB23';
  end;
  ...