procedure DrawSprite(index:SmallInt);
var
 dc:hdc;
 hdcMem: HDC;
 bmp:HBITMAP;
begin
 dc := GetDC(handle);
 bmp := LoadBitmap(HInstance,PChar('spr'+ Inttostr(index)));
 hdcMem := CreateCompatibleDC(dc);
 //BitBlt(dc,0,0,SWidth,SHeight, hdcMem, 0, 0, WHITENESS);
 SelectObject(hdcMem, Sprites[index]);
 BitBlt(dc,0,0,SWidth,SHeight, hdcMem, 0, 0, SRCCOPY);
 DeleteDC(dc);
 ReleaseDC(handle,dc);
end;