Comando case

o comando Case substitui um monte de comando repetitivo de if true them else

estrutura do case

begin
  case true of
  end;
end;

exemplo

procedure button click

var
x : integer;
begin
x := 5;  //por exemplo
  Case x of
    1: showmessage ('x é 1');
    2: showmessage ('x é 2');
    3: showmessage ('x é 3');
    4..6: begin //aqui diz que 4, 5 ou 6
               showmessage ('x é 4');
               showmessage ('ou x é 5');
               showmessage ('ou x é 6');
             end
  else
   showmessage ('não sei o valor de x');
  end;
end;

(dev iniciante - 18 12:35)