#pas
procedure THiImageLoader.Stretch;
var   memDC: HDC;
      bm: HBITMAP;
begin

   memDC := CreateCompatibleDC(DC);
   bm := CreateCompatibleBitmap(DC, w1-x1, h1-y1);
   SelectObject(memDC, bm);
   FImgCtx.StretchBlt(memDC, 0,0,w1-x1,h1-y1,x3,y3,w3,h3, SRCCOPY);
   BitBlt(DC, x1, y1, w1-x1, h1-y1, memDC, 0,0, SRCCOPY);
   DeleteDC(memDC);
   DeleteObject(bm);

//   FImgCtx.StretchBlt(DC, x1,y1,w1,h1,x3,y3,w3,h3, SRCCOPY);
end;