Delphi CompareStr 这个函数可以模糊匹配，且不区分大小写

var

  s: string;

begin

  s:='AA';

  if CompareStr('bbaabb',s)>0 then  //CompareStr 这个函数可以模糊匹配，且不区分大小写

  ShowMessage('aa');

end;