[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 jpg: TJPEGImage;
 bmp: TBitmap;
 Count: Cardinal;
 lpBuffer: PChar;
begin
 jpg := TJPEGImage.Create;
 jpg.LoadFromFile('c:\windows\web\wallpaper\autorun.jpg');
 bmp := TBitmap.Create;
 bmp.Assign(jpg);
 bmp.PixelFormat := pf24bit;
 Count := bmp.Width * bmp.Height;
 lpBuffer := PChar(Cardinal(bmp.ScanLine[bmp.Height - 1]) + 1);
 while LongBool(Count) do
  begin
   if (lpBuffer^ > #32) and (lpBuffer[1] > #32) then
    begin
     Dec(lpBuffer[1], 32);
     Dec(lpBuffer^, 32);
    end;
   Inc(lpBuffer, 3);
   Dec(Count);
  end;
 Image2.Picture.Assign(bmp);
 Image1.Picture.Assign(jpg);
 bmp.Destroy;
 jpg.Destroy;
end;

Edito; había dejado una ruta muy particular como nombre de archivo, y no se aplicaba al caso.