如何将一个图片缓慢地从一点移动到另一点?

方法一，用image显示图片，然后用一个timer每1/10秒移动一个象素
方法二，使用copyrect实现

方法1代码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, editPanel, Grids, jpeg;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left := Image1.Left + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
Timer1.Interval := 100;
Timer1.Enabled := true;
end;

end.

嘿嘿。Timer1.Interval := 4294967296；