TImage Height und Width bei MouseMove langsam erhöhen?

[mlspider]

Sicher.

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Timer1.Enabled:=True;
end;