Как устранить ошибку?

[Кинельски]

Делаю программу и все хорошо но только выдает ошибку, пожалуйста подскажите как её убрать

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with listbox1 do
if (itemindex<>-1) then
begin
sch:=items[itemindex];
memo1.Lines.LoadFromFile('data/'+a+god+dvor+'/'+nom+'/'+sch+'.txt');
put:='data/'+a+god+dvor+'/'+nom+'/'+nom;
image1.Picture.LoadFromFile(put+'1.jpg');
end;

end;

это кусок кода где находится ошибка, выделяется строка

image1.Picture.LoadFromFile(put+'1.jpg');

файл по пути существует

[ZuBy]

image1.Picture.LoadFromFile(put+'\1 .jpg');

хотя ошибка в другом. он не может распознать тип графики, сохраните нормально jpg файл

[Кинельски]

Спасибо, сохранил в bmp все читает, а в jpg, jpeg ни как не хочет, даже сохраняя через paint и то ругается

[russian-stalker]

Подключите модуль Jpeg.

[Кинельски]

Сообщение от russian-stalker

Подключите модуль Jpeg.

а как это сделать, можно поподробнее, заранее спасибо

[Stilet]

uses jpeg...
Где uses знаешь?

[Кинельски]

Знаю спасибо

[DomiNick]

Ещё можно подключить PNGImage (для аналогичных целей)... Только его нужно отдельно скачивать, если у вас делфи старая...