[Decoding]

Такой вариант подойдет?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   StretchBlt( Image2.Canvas.Handle, // Приемник
               10,                   // Начальная координата по x
               10,                   // Начальная координата по y
               50,                   // Новая ширина
               50,                   // Новая высота
               Image1.Canvas.Handle, // Источник
               0,                    // Начальная координата по x
               0,                    // Начальная координата по y
               Image1.Width,         // Ширина
               Image1.Height,        // Высота
               SRCCOPY );            // Опции рисования
end;