forma original

[MaMu]

Por ejemplo,

Código Delphi [-]
...
uses JPeg;
...

procedure ConvertToBMP(IMGorigen,IMGDestino:string);
var  MyJPEG : TJPEGImage;
      MyBMP  : TBitmap;
begin
  MyJPEG := TJPEGImage.Create;
  with MyJPEG do
     begin
         LoadFromFile(IMGorigen);
         MyBMP := TBitmap.Create;
         with MyBMP do
            begin                
              //Acá es donde tenes que jugar con la escala                  
              //Width := MyJPEG.Width;                 
              //Height := MyJPEG.Height;                
              Canvas.Draw(0,0,MyJPEG);        
              SaveToFile(IMGDestino);               
              Free;             
             end;         
           Free;     
       end;
end;

Además hechale un ojo a este truco:

http://www.clubdelphi.com/trucos/ind...47&scrollb=202

Creo que es muy claro, y bien podes modificar el tema de la escala de grises.

Saludos