[iegrec]

Вот что я замутил....

Код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 begin
if Assigned(Column) then
  begin
   DBGrid1.Canvas.FillRect(Rect);
   DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ' '+Column.Field.AsString);
  end;
end;

Админ: Пользуемся тегами для оформления кода!

помогло.....НО....не вовсех случаях....в моеём...меня это спосло...
Правда...эта процедура..подействовала..только на 3 BDGrid-а..из 5...не могу понять почиму....
а так ..Тему МОЖНО ЗАКРЫТЬ.....

СПАСИБО ВСЕМ...