检查字符串中是否包含英文

//检查字符串中是否包含英文
function CheckEn(AEn: String): Boolean;
var
 ans : AnsiString;
 wis : WideString;
 i, anslng, wislng: integer;
begin
  Result := False;
  ans := AnsiString(AEn);
  wis := WideString(AEn);
  for i := 1 to Length(AEn) do
  begin
    anslng := Length(ans[i]);
    wislng := Length(AnsiString(wis[i]));
    if anslng <> wislng then Result := False
    else if ord(ans[i])<128 then
    begin
      Result := True;
      Break;
    end;
  end;
end;