[Amilman]

А можно переделать какнить этот код?

begin
if (DataModule1.ADOTable2.FieldByName('Цвет').Value=1 2582847) then //что бы брал цвет из ADOTable2.FieldByName('Цвет')
begin
with DBGrid1.Canvas do begin
Brush.Color:=clGreen; //<--- И вставлял сюда
Font.Color:=clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
end;
end;