delphi 中的匹配问题，希望大家帮忙？
begin
if adoquery1.FieldByName('料号').AsString = '02N0030056' then
DBGrid1.Canvas.Brush.Color:=clyellow
else
DBGrid1.Canvas.Brush.Color:=clwhite;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end.
这个是上面的代码，正常运行，但是我觉得这个if条件太死了，我想改成：第三个字母如果是字母N?
求解？ 求解DELPHI中的匹配
[解决办法]
通过字符串下标处理, query字段的长度自己判断下

if adoquery1.FieldByName('料号').AsString[3] = 'N' then
[解决办法]
或都更明白一点:
if Copy(AdoQuery1.FieldByName('料号').AsString, 3, 1) = 'N' then