function LoadTail(Name:PChar):HBITMAP;
var
 Bitmap :HBITMAP;
 WinDC,BitDC:HDC;
begin
 Bitmap := LoadBitmap(HInstance,'FLOOR');
 WinDC := GetDC(hWindow);
 BitDC := GetDC(Bitmap);
 bitBlt(WinDC,0,0,100,100,BitDC,0,0,SrcCopy);
end;

function LoadTail(Name:PChar):HBITMAP;
var
 Bitmap, OldBMP :HBITMAP;
 hWDC,hMemDC:HDC;
begin
 hWDC := GetDC(hWindow);
 hMemDc := CreateCompatibleDC(hWDC);
 Bitmap := LoadBitmap(HInstance,'FLOOR');
 OldBMP := SelectObject(hMemDc,Bitmap);
 BitBlt(hWDC,0,0,24,24,hMemDc,0,0,SRCCOPY);
 DeleteObject(SelectObject(hMemDc, OldBMP));
 DeleteDC(hMemDC);
 ReleaseDC(0,hWDC);
end;