[[enecumene]]

Bueno, puedes hacer algo asi, no se si te funcionara:

Código Delphi [-]
var
  Color: Integer;

begin
  IdentToColor(''+dm.qryInasistencias.Fields[0].asstring+'', Color);
  Self.Color := Color;
end;

Saludos.