Delphi - Como hacer un CASE?

Buen Día:
Necesito que me escriban la sentencia para armar un CASE, pues estoy
un poco perdido en esto. No acostumbro a programar en Delphi; por
ejemplo en PHP es:
===============
switch ($variable):
case 'valor 1':
:
:
break;
case 'valor 2':
:
:
break;
case 'valor 3':
:
:
break;
default:
:
:
endswitch;
===============
Pero en Pascal no me recuerdo como es.

Saludos y mucha suerte,
El Figuero

Supongamos que:

var Dato: integer;

Entonces:

case Dato of
-14: HagoEsto;
0: begin
HagoOtraCosa;
YTambiénEsta;
end;
5: OtraMas;
else //Si no es ningún valor de los de arriva...
HagoAlgo;
end;

¡OJO! Que el case de Delphi desafortunadamente funciona sólo con tipos de datos ordinales, esto es, nada de cadenas de caracteres ni cosas por el estilo...

Saludos y felices compiladas.

Claro que trabaja con cualquier tipo de datos, por ejemplo una variable x de tipo word...
x := MessageDlg('Hola',mtConfirmation,[mbYes,mbNo],0);
case x of
mrYes : Close;
mrNo : Abort;
end; //case

Otro ejemplo con los items de un listbox
Case ListBox.ItemIndex of
0 : begin
-----
end;
1 : begin
-----
end;
end; //case

Esos son tipos ordinales. Chequea la ayuda.

O haz esta prueba:

x:='Hola'

case x of
'Hola':Close;
'Mundo':Abort;
end;//case

Buen Día:
Muchisimas gracias, ya comprendo.
Saludos y mucha suerte,
El Figuero