찾아보셨는지는 의문이네요...
아마도 예전 질답게시판에 많을겁니다...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
var i: integer;
begin
    with StringGrid1 do
    begin
        for i := 1 to ARow do
        begin
            if (ACol=8) and (ARow=i) and (Cells[8, i] = 'Yes') then
            begin
                Canvas.Brush.Color := clBlue;
                Font.Size:=15;
            end;
            if (ACol=8) and (ARow=i) and (Cells[8, i] = 'No') then
            begin
                Canvas.Brush.Color := clRed;
                Font.Size:=15;
            end;
        end;
        Canvas.FillRect(Rect);
    end;
end;

답변 감사드립니다...
님 말씀대로 제가 잘 찾아봤어야 하는 건데...
ㅡ.ㅡ;
좋은하루 되시고요, 정말 감사드려요...