OnTimer unter Laufzeit Problem...

[DXC]

Hallo,

ich habe ein problem bei folgendem Delphi-Quellcode;

Delphi-Quellcode:

...
procedure DoTimer (Sender: TObject);
private
    { Private-Deklarationen }
...



var
     NewTimer: TTimer;        // Ist Global Definiert !
     NewImage: TImage;
...



procedure TForm1.Button1Click(Sender: TObject);
begin
  NewTimer := TTimer.Create (Nil);
  NewTimer.Interval := 20;
  NewTimer.Enabled := True;
  NewTimer.OnTimer := DoTimer;
  begin
    NewImage := TImage.Create(Nil);
    with NewImage do
      begin
      Top := 144;
      Left := 8;
      Picture.LoadFromFile('xxx.bmp');
      Parent := Form1;
      Name := 'xxx';
      end;
  end;
end;


procedure TForm1.DoTimer(Sender: TObject);
begin
  NewImage.Top := NewImage.Top - 3;
end;

Der Quellcode ergibt dass das Bild nach oben verschoben wird (über den Timer)...

Nur wenn ich zweimal schnell auf denselben Button klicke dann wird das zweite bild doppelt so schnell verschoben was aber nicht sein soll.

Weiß jemand wie ich dieses problem lösen kann ?

wäre dankbar..

MFG
DXC