Farbe von Textkomp. auf DBCtrlGrid aufgrund Feldwert ändern?

[mschaefer]

Moin, moin

Habe ein DBText abgeleitet und möchte seinen Wert auf einem TDBCtrlGrid anzeigen lassen.
Es handelt sich um einen Zahlenwert, der in dem zugehörigen Datenbankfeld vorliegt.

FRAGE: Wie ist es möglich auf eine TDBCtrlGrid das TDBText1-Feld in verschienden Farben
anzeigen zu lassen in Abhängigkeit des Zahlenwertes (z.B.: gerade/ungerade) ?

Delphi-Quellcode:

unit DBText1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls;
{                                                                              }

type
  TDBText1 = class(TDBText)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
  end;

procedure Register;

{                                                                              }
implementation
{                                                                              }


procedure Register;
begin
  RegisterComponents('Beispiele', [TDBText1]);
end;
constructor TDBText1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle      := ControlStyle + [csReplicatable];
end;
destructor TDBText1.Destroy;
begin
  inherited Destroy;
end;
{                                                                              }
end.

Viele Grüße // Martin