Рисунок курсора

[Fellics{новичок}]

Привет всем кто просматривает мое сообщение. В общем о моей проге, ну я создаю игру на подобии тира, и мне надо в ней (игре) сделать так чтобы был совершенно другой рисунок заместо Стандартного курсора. Пожайлуста подскажите код. Всем спасибо кто откликнется. и еще нужен другой код: в общем его функция такова это надо засунуть в таймер и при нажатии кнопки уже заданные картинки показывались и исчезаличерез допустим через 5 секунд. уже с этими кодами мучаюсь а все не получается.

Важная часть кода состоит в том если на картинку в течении этих 5 секунд не нажмешь и она исчезнет и появится совершенно другая то в совершится такая подпрограмма

Label1.Caption :=
FloatToStr( StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text) )

[eoln]

var
  h: THandle;
  name: array[0..255] of char;
...
begin
StrPCopy(name, 'cursor.ani'); //имя файла с курсором
  h := LoadImage(0, name, IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or
    LR_LOADFROMFILE);
  if h <> 0 then 
    begin
      Screen.Cursors[1] := h;
      Screen.Cursor := 1; 
    end 
  else
    Screen.Cursor := crDefault;
end;

[Fellics{новичок}]

EOLN огромное вам спасибо за ваш код все пошло отлично.