sintaxis de select case O___o

[NSL94]

Buenas a todos recopilando informacion por el foro llegue a la conclusion de que un select case se escribia mas o menos asi:

select
case a
when 1 then showmessage('1')
when 2 then showmessage('2')
etc...
end

pero escribiendo yo:

select
case tabla1.FieldByName('campo1').AsString
when 'eso' then showmessage('eso')
when 'lootro' then showmessage('lootro')
end

me falla y me dice que me falta un ";" en la linea "case tabla1.FieldByName('campo1').AsString"

Alguien me podria decir cual seria la sintaxis corecta?
Gracias a todos, y que tengais un buen dia... que ya estamos a jueves!!