아래 부분은 소스를 카피 해 놓은건데요.
제자리에서는 파일 4개가 겹쳐서 에니메이션 효과가 나거든요.
그런데..제자리에서 에니메이션 효과 주는것을 폼우측끝부분부터 좌측끝부분까지
움직(회전)이게 하고 싶은데, 잘 안됩니다.
답변 꼭좀 부탁 드립니다.


//---------------------------------------------//
  private
    Bmps: array [0..3] of TImage;
    ThisBmp: Byte;
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
        Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
        Bmps[0]:= Image1;
        Bmps[1]:= Image2;
        Bmps[2]:= Image3;
        Bmps[3]:= Image4;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
Var I:Integer;

begin
        Image_Main.Picture:= BMPS[ThisBmp].Picture;

        if ThisBmp < 3 then ThisBmp:= ThisBmp + 1
        else ThisBmp:= 0;

        Repeat
        Begin
          I := I + 1;
          Image_Main.Canvas.MoveTo( I, 1);  // 좌측에서 우측으로 움직이게 ...???
        End
        Until I < 300; // 여기서 300은 폼 넓이 입니다.
end;