[marcost]

Mil disculpas, el código anterior que envié tenia una omisión y NO funcionaba, hay que añadir la linea en rojo, y ya funciona.

 
procedure TfMain.dbGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Tabla.FieldByName ('importe').asCurrency > 0 then
   TDBGrid (Sender).Canvas.Pen.Color := clRed
else  
   TDBGrid (Sender).Canvas.Pen.Color := clGreen;
TDBGrid (Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;