Fórum Dúvidas Delphi XE2 #412847

Boa tarde pessoal.
Há alguns anos trabalho com Delhpi 7, e nunca programanei com o novo Delhpi XE2.
Eu fiz um programa bem simples em delphi 7 que desenha em um Timage com o clique do mouse, porem não consigo faze-lo no novo Delhpi XE2.
Creio que existam algumas diferenças nos componentes.
Algúm pode me ajudar?
obrigado
Obs.: Tb sou novato no fórum.

------Codigo------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
Desenhar : boolean;
Origem : TPoint;
public
{ Public declarations }
end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Pen.Color := clBlack;
Image1.Canvas.Pen.Width := 10;
end;



procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Desenhar := true;
Origem := Point(X,Y);
end;



procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Desenhar then begin
Image1.Canvas.MoveTo(Origem.X, Origem.Y);
Image1.Canvas.LineTo(X,Y);
Origem.X := X;
Origem.Y := Y;
end;
end;



procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Desenhar then begin
Image1.Canvas.MoveTo(Origem.X, Origem.Y);
Image1.Canvas.LineTo(X,Y);
end;

Desenhar := false;
end;

end.