DBGrid - trocar a cor do conteudo

Trocar a cor das cédulas na DBGrid sem mecher no formato:

CREIO QUE ISTO É PARA DELPHI 1

procedure TForm1.DBGrid1DrawDataCell

begin

     // Aqui seleciona o campo para ver se coloca fermelho ou não

     If Table1.FieldbyName('Valor').AsFloat > 0 then Exit;  

     DBGrid1.Canvas.Font.Color := clRed;

     // Chama o método default de "montar" célula

     DBGrid1.DefaultDrawDataCell(Rect, Field, State);    

end;