Из bmp в jpg Опции

[Vardes]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;
 
type
TForm1 = class(TForm)
  Button1: TButton;
  Image1: TImage;
  procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
uses JPEG;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  JPEG := TJPEGImage.Create;
  Bitmap := TBitmap.Create;
  try
	Bitmap.LoadFromFile('C:\Program Files\Common Files\alarm.bmp');
	JPEG.Assign(Bitmap);
	Image1.Picture.Assign(JPEG);
  finally
	JPEG.Free;
	Bitmap.Free;
  end;
end;
 
end. 

Вверху приведена прога для конвертации изображения из bmp в jpeg, при использовании стандартных функций Delphi...
У меня такой вопрос...Как можно просмотреть исходники функций Delphi для конвертации из BMP в JPEG, а то курсавик писать и хорошо было бы обзавестись некой базой....

[Vardes]

Опять вернусь у к теме...Разобрал полностью алгоритм кодирования Jpeg, я просто в шоке, около 8 этапов кодирования...Вообще для Delphi есть множество библиотек для работы с Jpeg, может кто подскажет, где мона взять исходники данной библиотеки??? НУ очень надо...