Convertendo Bitmap para JPEG

Quer transformar o seu arquivo de bitmap grande num arquivo jpeg comprimido? Use a classe TJpegImage para isso. Fácil, acessível, funcional.. mas nada além disso.

procedure TForm1.Button1Click(Sender: TObject);
var
b: Tbitmap;
j: TJPEGImage;
Od: TOpenDialog;
begin
try
Od:= TOpenDialog.Create(Self);
od.Filter:= 'Bitmaps (*.bmp)|*.bmp';
if od.Execute then
try
 b:= tbitmap.create;
 j:= TJPEGImage.Create;
 b.LoadFromFile(od.FileName);
 j.Assign(b);
 j.SaveToFile(ChangeFileExt(od.FileName, '.jpeg'));
finally
  b.free;
  j.free;
end;
finally
od.Free;
end;
end;

código fonte transformado em html em: http://tohtml.com/pascal/