function H_IsUpText(s: string): Boolean;
begin
  {$IFDEF Reflection}
  if (not (R_IsUpText(S)) then
  {$ENDIF}
  {$IFDEF Color}
    if (not (IsUpText(S)) then
  {$ENDIF}
      Exit;
  Result := True;
end;