procedure TForm1.Button1Click(Sender: TObject);

var

bmp : TBitmap;

dir : String;

begin

   GetDir(0,dir);

   dir := dir + 'CLOSE.bmp';

   bmp := TBitmap.Create;

   bmp.LoadFromFile(dir);

   img1.Picture.Bitmap := bmp;

end;

버튼을 눌러서 이미지를 불러 들이면

stream read Error 메세지가 나옵니다

어떻게 해야 하나요??