uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(SysUtils.ExtractFilePath(Application.ExeName) + 'PICT0001.JPG');//JPG文件与EXE文件在同一目录下
  Image1.AutoSize := True;
end;

这个问题我以前也接触过，开始的时候我也找不到问题的原因，后来我进了一个技术交流群，这个群里的人挺多的，在里面可以沟通技术，你可以进去看一下.群号是：六#二#八#七#八#零#四#三。另外，这个群里可以接项目。