[Casimiro Notevi]

Añade la línea indicado por ecfisa, te la he copiado:

Código Delphi [-]
procedure TFMntInventario.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  iDif : Extended; 
  iFile: Extended; 
begin // Cambia color a Existencia por debajo del minimo 
  if ( Dt1.TInventario.FieldByName('ExistAct').AsInteger < Dt1.TInventario.FieldByName('ExistMin').AsInteger ) then 
  begin 
    DBGrid1.Canvas.Font.Color := clRed; 
  end;

  DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);  // <- añade esta línea.