Подскажите, как написать процедуру, которая бы загружала(случайным образом) из заданного каталога картинку с разрешением *.jpg в TImage, а имя, загруженного файла присваивалось Tlabel ??

Dead.MorozZ, FindFirst/FindNext для заданного расширения файлов, имена файлов пишутся в динамический массив, Random-ом генерируется случайное число в диапазоне 1 .. ЧислоФайлов, и из массива выбирается соответствующий элемент... Вот и все...