Cambiar de color una celda de dbgrid

[zeta2]

Muchachos, se que este tema se trató en otras publicaciones, sólo quiero una ayudita...

Quiero hacer lo siguiente: Tengo un dbgrid que me muestra el contenido de una tabla. Hay un campo llamado 'Hora de Entrada' (una columna), quiero que si el contenido de esa celda es antes de las 12 del mediodía sea de un color, y es despues sea de otro...

Tengo un código el cual funciona muy bien, pero funciona con enteros no con horas, le quise cambiar el ".asfloat" por ".astime" pero no me funciona. Donde Dice "Numero" iría el nombre del campo del tipo Time "Hora de Entrada"

El código va en el evento OnDrawColumnCell es el siguiente:

inherited;

if (Column.Index = 1) and (Column.Field.Dataset.FieldbyName('Numero').AsFloat < 12) then
 Begin
  TDrawGrid(sender).canvas.Brush.Color := clGreen;
  TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
 end;

Espero que puedan ayudarme.

Muchas gracias por su tiempo.

Saludos.