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

Question

  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中的匹配

Answer 1

通过字符串下标处理, query字段的长度自己判断下if adoquery1.FieldByName('料号').AsString[3] = 'N' then

Answer 2

或都更明白一点:
if Copy(AdoQuery1.FieldByName('料号').AsString, 3, 1) = 'N' then