Delphi - Como hacer un CASE?

Filtrado por el usuario: sam_awara
<<>>
Filtrado por el usuario 'sam_awara' (Eliminar fitro)
 
Vista: