Cursor customizado

{Criar um arquivo de recurso com o cursor (vamos chamá-lo de teste.res) Vamos chamar o recurso de CUR_1

Coloque {$R teste.res} na seção implementation.}

procedure InsereCursor(Num : Smallint);
begin
Screen.Cursors[Num]:= LoadCursor(hInstance, PChar('CUR_1'));
Screen.Cursor := Num;
end;