[Mick]

Umm que raro, esa sintaxis no se parece a nada que haya visto en delphi XD. La sintaxis correcta es asi:

case n of
1: ShowMessage('el uno');
2: ShowMessage('el dos');
3: begin
      ShowMessage('el tres');
      ShowMessage('el tres otra vez');
    end;
end;

ATENCION: Solo se puede usar para tipos ordinales (enteros, chars) pero no para cadenas de caracteres, en este caso tendras que usar IFs.