How can I put my cursor.....

You better increase the points and explain better what you need.

Edited text of question

Adjusted points to 6

In my opinion this question worth 30 points. If you increase to 30 I'll answer it.

const MyCursor = 5;
var
  err:word;
begin
  err:=loadimage(
     hinstance,
     pchar('c_no01.cur'), //your cursor filename
     image_cursor,
     32,
     32,
     lr_defaultcolor or lr_loadfromfile);
  screen.Cursors[MyCursor]:=tcursor(err);
  self.cursor:=MyCursor;
end;

const MyCursor = 5;
var
  err:word;
begin
  err:=loadimage(
     hinstance,
     pchar('c_no01.cur'), //your cursor filename
     image_cursor,
     32,
     32,
     lr_defaultcolor or lr_loadfromfile);
  screen.Cursors[MyCursor]:=tcursor(err);
  self.cursor:=MyCursor;
end;

const MyCursor = 5;
var
  cursorhandle:word;
begin
  cursorhandle:=loadimage(
     hinstance,
     pchar('c_no01.cur'), //your cursor filename
     image_cursor,
     32,           //Must be the true cursor width & height
     32,           //
  lr_defaultcolor or lr_loadfromfile);//must set lr_loadfromfile

  screen.Cursors[MyCursor]:=tcursor(cursorhandle);
  self.cursor:=MyCursor;
end;