[l30]

Bueno fide, me falto decirte que si quieres la imagen más pequeña, te mando este procedimiento.

Código Delphi [-]
 procedure Tclien.comvertir_de_bmp_a_jpg(cargar_image_de,
    gueradr_image_en: AnsiString);
  var
    MyJPEG : TJPEGImage;
    MyBMP  : TBitmap;
    begin
    MyBMP := TBitmap.Create;
  with MyBMP do
       try
          {Cargamos el BMP}
          LoadFromFile(cargar_image_de);
          MyJPEG := TJPEGImage.Create;
          with MyJPEG do begin
          Assign(MyBMP);
          {Grabamos el JPG}
          SaveToFile(gueradr_image_en);
          Free;
       end;
       finally
          Free;
    end;
  end;

Código Delphi [-]
    cliente.comvertir_de_bmp_a_jpg(guar_dar_direccion+'image.bmp', guar_dar_direccion+'foto_chiquita.jpg');