BMP转jpeg问题！！各位大侠帮帮忙看看

Question

procedure TMainForm.Button3Click(Sender: TObject);
var
      bmp   :   TImage;
      jpg   :   TJpegImage;
      fld1, dst1 : string;
begin
      bmp   :=   TImage.Create(nil);
      jpg   :=   TJpegImage.Create;
      fld1 := BrowseForFolder('Select Destination Folder')+'\';
      if DirectoryExists(fld1) then begin
           Screen.Cursor := crHourGlass;
           dst1 := fld1 + ExtractFileName(src);
                  if src = dst1 then dst1 := fld1+'Copy '+ExtractFileName(src);
           bmp.picture.bitmap.LoadFromFile(src);
           jpg.Assign(bmp.picture.bitmap);
           jpg.SaveToFile (dst1);
      end;
      ShowMessage('Image change!');
      jpg.Free;
      bmp.Free;
end;
显示错误为
[Error] Main.pas(358): Declaration expected but end of file found
怎么回事啊?

Answer 1

//...
      jpg.Free;
      bmp.Free;
end;end. //<<<<<<<<<难道是差了一个"end."

Answer 2

Main.pas(358)使用了未声明的变量，方法，是头文件吗？

Answer 3

象是文件结束时少了个
end.