Изменение цвета определенных ячеек в StringGrid. Delphi

[Multiman]

Доброго времени суток! Читал форумы, но именно то что мне нужно не совсем получается сделать.

1. Мне нужно изменить цвет ячейки или цвет шрифта поменять:

    n7:=1; n8:=0;
    if  StrToFloat(Label17.Caption)<0 then begin
     for j:=1 to line do begin
      isprdx:=abs(StrToFloat(Label17.Caption))/StrToFloat(Label26.Caption)* StrtoFloat(StringGrid1.Cells[8,n7]);
      StringGrid1.Cells[9,n8]:=FloatToStrF(isprdx,ffFixed,10,2);
      n7:=n7+2;  n8:=n8+2;
     end;
     end
    else
    begin
     for j:=1 to line do begin
      isprdx:=-StrToFloat(Label17.Caption)/StrToFloat(Label26.Caption)* StrtoFloat(StringGrid1.Cells[8,n7]);
      StringGrid1.Cells[9,n8]:=FloatToStrF(isprdx,ffFixed,10,2);
      n7:=n7+2;  n8:=n8+2;
    end
 end;

Нужно изменить цвет вот этого значения: isprdx.

Делал по примеру форума вот так:

procedure TMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  j, line, p: integer;
begin
     if StringGrid1.Cells[ACol,ARow]=FloatToStrF(isprdx,ffFixed,10,2) then begin
   StringGrid1.Canvas.Brush.Color := cllime;
   StringGrid1.Canvas.FillRect( Rect );
   StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
   end;

Но цвет изменяется только последнего значения. Как изменить цвет каждого выводимого значения?

2. Пользователь в моей программе сам задает число строк в гриде, а потом заполняет нужные значения. Для удобства я бы хотел изменить цвет тех ячеек куда необходимо ввести данные. Мне нужно изменить цвет ячеек через одну в разных столбцах когда пользователь формирует грид. Пожалуйста научите как это сделать.

Заранее благодарен.

[JUDAS]

попробуйте заменить StringGrid на DrawGrid (он следуюший в палитре компонент)

[Step_UA]

если необходимо просто через одну

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if ARow mod 2=0 then
   StringGrid1.Canvas.Brush.Color := cllime
   else  StringGrid1.Canvas.Brush.Color := clRed;
 StringGrid1.Canvas.FillRect( Rect );
 StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;

если же для конкретных значений, то поменяйте условие в ифе ... ваш код правильный, только не определенно действие по else