Каким образом из bmp создать курсор и назначить рабочую точку? Если можно, кусок кода...

Уже сделал... Вот самый черновой вариант. Все улучшения приветствуюстся

function bitmaptocursor(bit : Tbitmap; color : Tcolor; x,y:integer):TCursor;
var
AndMask : TBitmap;
IconInfo : TIconInfo;
i,j:integer;
begin
AndMask := TBitmap.Create;
AndMask.Monochrome := true;
AndMask.width:=bit.width;
AndMask.height:=bit.height;
AndMask.Canvas.Brush.Color := clWhite;
AndMask.Canvas.FillRect(Rect(0, 0, bit.width, bit.height));
for j:=1 to bit.width do
for i:=1 to bit.height do
If bit.canvas.pixels[j,i]<>color then AndMask.Canvas.pixels[j,i]:=clblack;
IconInfo.fIcon := true;
IconInfo.xHotspot := x;
IconInfo.yHotspot := y;
IconInfo.hbmMask := AndMask.Handle;
IconInfo.hbmColor := bit.Handle;
result:=CreateIconIndirect(IconInfo);
AndMask.free;
end;