Mauszeiger aus Bild laden / Prog, dass Mauszeiger erstellt

[blablubb]

hi alle zusammen

habe das gleiche problem, aber schaffe es nicht, mit hilfe von turboPASCALs beispiel bei mir das gleiche hinzubekommen...
und wo wird deklariert, welche .res datei delphi nehmen soll?

mein code sieht so aus:

Delphi-Quellcode:

unit FrmHaupt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls, FrameBreakfast, FormAbout;

type
  TFenster = class(TForm)
    BtnExit: TButton;
    LblActionText: TLabel;
    FraBreakfast1: TFraBreakfast;
    BtnAbout: TButton;
    BtnLoad: TButton;
    BtnSave: TButton;
    BtnInventar: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure BtnInventarClick(Sender: TObject);
    procedure BtnAboutClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Fenster: TFenster;
  stiftAuswahl: Boolean;

implementation

{$R *.dfm}

const
  crGrab     = 1;
  crGrabbing = 2;
  crMyGirl   = 3;

procedure TFenster.FormCreate(Sender: TObject);
var
  MyCursor: HCursor;
  n: Byte;
begin
  FraBreakfast1.Label1.Height := 137;
  FraBreakfast1.Label1.Width := 65;
  for n:=1 to 3 do
  begin
    MyCursor := LoadImage(hInstance, MAKEINTRESOURCE(n), IMAGE_CURSOR, 0, 0, 0);
    Screen.Cursors[n] := MyCursor;
    DeleteObject(MyCursor);
  end;

  Cursor := crGrab;
  BtnExit.Cursor := crMyGirl;

end;

end.

also genauso wie bei turboPASCALs beispiel, hab sogar die .rc und .res datei von dir benutzt, mitsamt res ordner.

es funktioniert aber nicht, und komme auch nicht drauf, warum. könnte mir vielleicht jemand weiter helfen?
danke auf jeden fall