есть конечно

uses jpeg;

// Imbut = Image1(TImage)


var
Img: TJpegImage;
begin
Img:=TJpegImage.Create;
Img.LoadFromFile('путь к файлу');
Image1.Picture.Assign(Img);
Img.Free;
end;

Да так более точно))))
flacs код конечно рабочий, но идет выделение памяти в дополнительную ветку))) Держите заслуженные +5))

У кого есть более элегантный вариант?

Помоему лучше не придумать. Это самый оптимальный вариант.

2 Flame of Soul Дай отгадаю. У тебя стоит BDS наверное. И ты наверное уже не помнишь (или еще незнаеш) что ранее такое не прокатывало т.е. в Delphi 7 LoadFromFile позволяет загружать тока bmp картинки. И для того чтобы работать с jpg то приходилось юзать модуль jpeg. А в последующих делфях это было изменено т.е. работа с этим модулем или его аналогом уже была встроен в сам класс TImage. Так что при использовании jpeg модуля ты особо ничего не потеряеш.
В D7 сразу можно увидеть поддерживаемые форматы
Если проследить события то
TPicture.Create -> GetFileFormats -> TFileFormatsList.Create -> заполнение сопоставления расширения и типа файла.
Эта инфа хранится в переменной FileFormats но она является локальной для Graphics.pas так что тебе или делать её глобальной и методами add / remove добавлять сопоставления или создать свой класс на основе TPicture где это будот встроенно

slesh - я просто хочу посмотреть кто придумает самый экстровагантный способ, кто не заленится и напишет такое для данного решения, чтобы мурашки по коже пошли)))). Просто хотела найти таланты у которых есть свободное время, а тут таких уже и не видно(( а жаль.

ну вот это уже более мение)))

можно деассембнуть компонент и пофиксить ручками, жаль у меня его нет - я б сделал

файлик переименовать?

__________________
Bedankt euch dafür bei euch selbst.

H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ

шикарный способ, правда))) такой вариант первый пока!

ТС тему надо переименовать в "Алло! Мы ищем таланты!"

P.S: А конкретно неординарных личностей, имеющих гениальные решения.