1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFrameSearchBetrieb.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
 Feld: TField;
begin
  If (Datamodule1.ADOQuery16_SearchBetriebbetr_closed.AsBoolean = true) then
   DbGrid1.Canvas.Font.Color := clred;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;					

1:
2:
3:
4:
5:

If (Datamodule1.ADOQuery16_SearchBetriebbetr_closed.AsBoolean = true) 
  and (Column = ???? {hier die richtige Spalte einsetzen} ) then
   DbGrid1.Canvas.Font.Color := clred;

DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);