Te falta "repintarlo" con los cambios, algo así:
Código Delphi
[-]if Column.Field = ClientDataSet1SALDO then
if ClientDataSet1SALDO.AsCurrency < 200 then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;