загрузка в Image JPEG-файл из ресурса

[casio23]

люди помогите переделать модуль загрузки из png в JPEG, png быстро грузит хотелось бы и jpeg быстро грузить

unit ImageOfRes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, pngimage;

type
  TImageOfRes = class(TPersistent)
  protected
    FHandle: THandle;
  public
    constructor Create(const ResFile: string);
    destructor Destroy;
    procedure PushImage(var Image: TImage; const ImageName: string);
  end;
var
 pData: Pointer;

implementation

{ TImageOfRes }

constructor TImageOfRes.Create(const ResFile: string);
begin
  // Загрузка библиотеки
  FHandle := LoadLibrary(PWideChar(ResFile));

  pData := LockResource(FHandle);
  // В случае если библиотека не загрузилась
  if pData = nil then
    raise Exception.Create('Ошибка при загрузке библиотеки!');
end;

destructor TImageOfRes.Destroy;
begin
  FreeLibrary(FHandle);
end;


procedure TImageOfRes.PushImage(var Image: TImage; const ImageName: string);
var
  PngImage: TPngImage;
begin
  PngImage := TPngImage.Create;

  try
    PngImage.LoadFromResourceName(FHandle, ImageName);
    Image.Picture.Graphic := PngImage;
  finally
    PngImage.Free;
  end;

end;

end.

использование
kartinka RCDATA krt.png

 
var R: TImageOfRes;

begin
R := TImageOfRes.Create('Имя.ресурс');
R.PushImage(Image1, 'kartinka ');
end;

[Человек_Борща]

Как бы 2 разных типа файлов. ОНИ РАЗНЫЕ как по расширению, так и по седержанию. png более качественно хранит изображение.

Ни как ты не ускоришь загрузку jpeg так же быстро как png.