for i := 1 to Length(s) do
if s[i] in LeadBytes then result := True;

の方がずっとはえー