Функция получения случайной последовательности букв и цифр заданной длины для Delphi 6 и JavaScript

Функция принимает единственный параметр - число означающее длину строки генерируемой случайной последовательности букв и цифр. Функция устроена таким образом что первый генерируемый символ всегда является заглавной или строчной буквой, но не числом. Перед использованием функции её необходимо добавить в { Public declarations } следующей строкой: function getAlphaNumericRandom(len: integer) : string;

Для работы генератора случайных чисел в uses необходимо добавить модуль Math.

Аналогичная функция на JavaScript