Lo primero, te convendría más utilizar la estructura:
Código Delphi
[-]
Case tipo of
1:
2:
3:
end;
En cuanto a las etiquetas no tienes más que escribir
[delphi ]
ShowMessage('Ejemplo');
[/Delphi ]
El espacio al final es para que veas la estructura, sin el espacio quedaría así:
En cuanto al error si unas funcionan y otras no es que alguna de las condiciones 1, 2, 3 está mal escrita, por qué no nos dices cuales funcionan correctamente y en donde te da el error exactamente.
Un Saludo.