>>16
ByteType関数使ってください。

for i := 1 to Length(S) do
begin
　if ByteType(S[i]) = mbLeadByte then Result := True;
end;