[TolAlik]

Привет всем!
У меня возникла проблема с раскрашивание полей в dbgrid.
Делаю это в событии таблицы DBGrid OnDrawColunmCell.
Код приведен ниже

Код:

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Data_Module do
  with DBGrid1.Canvas do
  begin
    if not IBQuery.IsEmpty then
      if (datacol = 1) then
      begin
        FillRect(Rect);
        Brush.Color:=clRed;
        Font.Style:=[];
        if Trim(Column.Field.Dataset.FieldByName('m1').AsString) = '1' then
          TextOut(Rect.Left+2,Rect.Top+2,'запись1')
        else
        if Trim(Column.Field.Dataset.FieldByName('m2').AsString) = '2' then
          TextOut(Rect.Left+2,Rect.Top+2,'Запись2');
      end;
  end;
end;

Работает все замечательно, но при попытке добавить в IBQuery и использовать lookup полей, то вся отрисовка пропадает и не хочет вообще ни какие поля раскрашивать.
Может кто встречался с такой ситуацией?