保存文件出错!高手请进

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenPictureDialog1.Execute;
  if not FileExists(OpenPictureDialog1.FileName) then Exit;
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.SaveToFile('name'+ExtractFileExt(OpenPictureDialog1.FileName));
end;

Answer 1

着使用了盗版盘的原因，重新打开文件。一般来说就可以了。