[Pyro]

PHP код:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if not Field.Name = 'Цвет' then Exit
  Brush.Color := Field.AsInteger
  ...
end; 


наверно как-то так