Win下这样没问题，但是在CLX程序中就不行。。。
procedure TW32AppForm.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
jpg := TJpegImage.Create;
try
jpg.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.jpg');
Image1.Picture.Bitmap.Assign(jpg);
finally
jpg.Free;
end;
end;
