Estructura Case sobre el valor de un campo string

[chileno]

hola amadis....
lo que puedes hacer :

Código Delphi [-]
var estado : string;
estado := DataSource.DataSet.FieldByName('estado').Value;
case estado[1] of
 'L'   : begin
           ShowMessage('LIBRE');
         end;
 'O'   : begin
           ShowMessage('OCUPADO');
         end;
 'F'   : begin
           ShowMessage('FUERASERVICIO');
         end;
 end;

espero que te sirva