const crMyCursor = 5;
 crAutreCurseur = 6;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Label1.Cursor:=crCross;
 Screen.Cursors[crMyCursor] := LoadCursorFromFile('Curseur1.cur');
 Screen.Cursors[crAutreCurseur] := LoadCursorFromFile('Curseur2.cur');
 Panel1.Cursor:=crMyCursor;
 Button1.Cursor:=crAutreCurseur;
end