(Resolvido) Mudar o cursor em um TImage

[Guest Bettega]

Tenho um componente TImage no meu Form.

Gostaria que ao passar o mouse em cima desta imagem, o cursor ficasse no formato de mão

Screen.Cursor := crHandPoint

e ao sair da imagem voltasse ao padrão de seta

Screen.Cursor := crDefault

Como posso fazer into ?

Obrigado,

Bettega

[Jhonas]

Gostaria que ao passar o mouse em cima desta imagem, o cursor ficasse no formato de mão

e ao sair da imagem voltasse ao padrão de seta

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Image1.Cursor := crHandPoint;
end;

quando voce passar o mouse em cima da figura o cursor muda para mão e ao sair ele volta ao padrão de seta

abraço

[Guest Bettega]

Obrigado pela pronta resposta. Resolveu o meu problema.

Bettega.