mau nanya nich, skrip yang bisa konversi file gambar jpg ke bmp makasih atas jawabannya

dari torry...

uses
  JPEG;
procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

{
  CompressionQuality (default 100):
  Set a value between 1..100, depending on your need of quality and
  image file size. 1 = Smallest file size, 100 = Best quality.
  Mit CompressionQuality können Sie die Qualität der Komprimierung für die
  JPEG-Grafik festlegen (Default ist 100), wenn diese gespeichert wird.
  Eine höhere Komprimierung ergibt eine etwas schlechtere Bildqualität,
  dafür aber eine kleinere Datei.
  1 = kleinste Dateigrösse, 100 = beste Qualität
}

duh sangat berguna skali nich... mas saya mau nanya... gimana ya caranya kalo mau ngekonversi dari BMP ke JPG (biar file nya lebih kecil)? kaya komresi gitu..... mohon bantuannya mas ya..... kalo ada info tolong kasih tau saya mas ya di : luwin_03@yahoo.com

@sketsa Untuk mengecilkan file jpeg, bisa diset dengan menurunkan CompressionQuality nya, tentunya dengan resiko kualitas gambar menjadi turun