delphi 中的匹配有关问题，希望大家帮忙

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