-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru"
                "Конвертирование BMP=>JPG и наоборот"
-----------------------------------------------------------------------

Ниже расположена парочка примеров для конвертирования двух самых распространенных форматов - BMP и JPEG.

uses
  JPEG;

procedure TForm1.Button1Click(Sender: TObject);
{
  BMP=>JPEG
}
var
  MyJPEG : TJPEGImage;
  MyBMP  : TBitmap;
begin
  MyBMP := TBitmap.Create;
  with MyBMP do
    try
      LoadFromFile('YourBmpHere.BMP');
      MyJPEG := TJPEGImage.Create;
      with MyJPEG do begin
        Assign(MyBMP);
        SaveToFile('YourJpegHere.JPEG');
        Free;
      end;
    finally
      Free;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
{
  JPEG=>BMP
}
var
  MyJPEG : TJPEGImage;
  MyBMP  : TBitmap;
begin
  MyJPEG := TJPEGImage.Create;
  with MyJPEG do begin
    LoadFromFile('YourJpegHere.JPEG');
    MyBMP := TBitmap.Create;
    with MyBMP do begin
      Width := MyJPEG.Width;
      Height := MyJPEG.Height;
      Canvas.Draw(0,0,MyJPEG);
      SaveToFile('YourBmpHere.BMP');
      Free;
    end;
    Free;
  end;
end;
-----------------------------------------------------------------------