Estructura Case sobre el valor de un campo string

[amadis]

Que tal gente.

Estoy tratando de, en el evento DrawColumnCell de un DBGrid, caputurar el valor del campo 'ESTADO' para luego dependiendo de eso pintar las filas de distintos colores.

Para ello pensé en un Case como el siguiente

Código Delphi [-]

case DataSource.DataSet.FieldByName('estado').Value
    OF

       LIBRE:
             DBGrid1.Canvas.Brush.Color:=$438811;
             DBGrid1.Canvas.FillRect(Rect);
             DefaultDrawColumnCell(Rect, DataCol, Column, State);

      OCUPADO: // otro color

     FUERASERVICIO: //y OTRO MAS
END;

De esa forma me da UNDECLARED IDENTIFIER : LIBRE, OCUPADO, FUERASERVICIO

Pensé luego ponerle 'comilla' a cada valor deseado y luego da Incompatible types String and Integer. ¿por qué integer¿ si el valor del campo que tengo en cuestión es un String?

Si lo hago con varias estructuras If funciona pero lo correcto sería utilizar case