请高手指点，我的这个Tcanvas调用Copyrect函数，怎么老是说无法打开.bmp图象呢！！！

我把一个*.bmp放在它的工程文件的目录下面，但是老是提示无法打开！
原代码通过了编译，但是一运行后，按BOTTON后，就是打不开啊！！
原代码如下：
    
{$R *.dfm}
  Const
Step=200;
X0=20;
Y0=20;
Var
  Bitmap:tbitmap;
 Midx:integer;
Ratiox:real;
I:integer;
Rect1,rect2:trect;procedure TForm1.Button1Click(Sender: TObject);
begin Bitmap:=tbitmap.create;
   Bitmap.loadfromfile('*.bmp');//装入位图文件
Ratiox:=bitmap.width/step;
For I:=0 to step do
  Begin
   Midx:=round(ratiox*i);
  With rect1 do
    Begin
  Left:=bitmap.width-midx;
   Top:=0;
   Right:=bitmap.width;
Bottom:=bitmap.height;
 End;
  With  rect2  do
  Begin 
   Left:=x0;
   Top:=y0;
    Right:=x0+midx;
    Bottom:=y0+bitmap.height;
end;
canvas.copyrect(rect2,bitmap.canvas,rect1);//复制位图
end;
 bitmap.free;
end;
end.