ex)

ONDrawCell  event 에

  with TStringGrid(Sender) do
  begin
if arow = 1 then
            Canvas.Brush.Color := clred;
end

이렇게 하면 되는것 같네요 ^^

답변 감사합니다만...
셀의 색상이 아니구..
선 색깔.... 기본적으로 회색으로 나오는데.. 검정색으로 하고 싶은경우..
라인색깔을 어떻게 변경하나요??

안녕하세요. 최용일입니다.

아래와 같이 해보세요...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
    CellText: string;
    R: TRect;
begin
    R := Rect;
    InflateRect(R, 1, 1);
    TStringGrid(Sender).Canvas.Brush.Color := clWhite;
    TStringGrid(Sender).Canvas.Pen.Color := clRed;
    TStringGrid(Sender).Canvas.Rectangle(R);

    R := Rect;
    CellText := TStringGrid(Sender).Cells[ACol, ARow];
    TStringGrid(Sender).Canvas.TextRect(R, R.Left+2, R.Top+2, CellText);
end;

물론 위에는 빠졌지만 포커스되어 있거나 선택되어 있는 셀에 대한 처리도 해주어야 겠죠...

^^ 항상 즐코하세요...