안녕하세요..
이런 형태로 해보세요..

if ACol = 3 and ARow = i then
begin
sgd_1.Canvas.Font.Color := clRed;
sgd_1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, sgd_1.Cells[ACol, ARow]);
end;

전체적인 코드가 없어 모르겠지만 일단 위에 코드의 기본적인 스타일은 위에서 말씀해주신 형태로 고치시는 게 맞고요.
코드 중에서 일단 Record 전체를 확인해서 작업하시려면
CDSet1.Next;
를 For문 어디엔가 넣으셔야 겠지요. ^^

위에 같이 해도 글자색이 안변하네요..
for문으로 돌리니까 qty가 0도 있고 0이 아닌값도 있으니까
결국엔 글자색 안변하는거 같은데요..
전체 코드는 이렇습니다..

if rbt_out.Checked then
begin
CDSet1.Active := False;
with EP1.SelectRPC.Params do
begin
ParamByName('in_reqdate1').Value := ls_in_reqdate1;
ParamByName('in_reqdate2').Value := ls_in_reqdate2;
ParamByName('in_dept_cd').Value := ls_in_dept_cd;
ParamByName('in_em_norm').Value := ls_in_em_norm;
ParamByName('in_em_cnt').Value := ls_in_em_cnt;
CDSet1.Active := True;
end;

for i := 0 to CDSet1.RecordCount - 1 do
begin
if CDSet1.FieldByName('qty').AsInteger = 0 then
begin
if (ACol = 3) and (ARow = i) then
begin
sgd_1.Canvas.Font.Color := clRed;
sgd_1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, sgd_1.Cells[ACol, ARow]);
end;
end
else
begin
if (ACol = 3) and (ARow = i) then
begin
sgd_1Canvas.Font.Color := clWindowText;
sgd_1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, sgd_1.Cells[ACol, ARow]);
end;
end;
CDSet1.Next;
end;

end;

DrawCell 이벤트 내의 코드를 모두 지우시고 아래 형태처럼 테스트 해보세요..
if ACol = 3 then
if sgd_1.Cells[ACol, ARow] = '0' then
begin
sgd_1.Canvas.Font.Color := clRed;
sgd_1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, sgd_1.Cells[ACol, ARow]);
end;

답변 감사드립니다... ^^;
그런데 qyt 값이 0이면 글자색이 빨간색
0이 아니면 검은색인데...
조건 안따지고 그래도 적용시킴 모두 빨간색이 되고
위에처럼 하면 검은색 그대로고...
어렵네요... ㅡ..ㅠ
구분을 어떻게 해야 할지??
위에처럼 for 문 돌려서 하는 방법 밖에 없잖아요...
그런데 안되니까 문제입니다... ㅡㅡ;;

drawcell이벤트는 formcreate할때 따로 호출안하는가요??
디버깅해보니까
if ACol = 3 then 이조건을 아예 만족을 못시킨까
밑에 소스가 실행이 안되는거 같더라구요...

조언 부탁해요..

천천히님.. DrawCell 이벤트는 말그대로 셀을 그릴때 발생되는이벤트인데,
안에서 for 문을 돌릴 이유가 없습니다..
위에 올려드린 짧은 코드는 우선 색을 변화시킬때 저런 형태로 하면 된다는 말씀을 드리려고
올려드린 거구요.. 단계별로 하나씩 해보세요..
말씀하신 qty의값이 있는 셀을 비교하시면 되겠네요..