[Yurk@]

примерно так:

Код:

procedure TeForm.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if ((Grid.DataSource.DataSet.FieldByName('Icrtf_vers_typ').AsString='DB') AND
    (not Grid.DataSource.DataSet.FieldByName('Icrtf_id').IsNull) AND
    (not Grid.DataSource.DataSet.FieldByName('Icrtf_form_series').IsNull) AND
    (not Grid.DataSource.DataSet.FieldByName('Icrtf_form_num').IsNull)) then
    begin
	  with  Grid.Canvas do
	  begin
	  Brush.Color:=$008000;
	  Font.Color:=$FFFFFF;
             FillRect(Rect);
	  TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
	  end;
	  end;
end;