怎样保存图片到文件夹啊？

Question

我想把图片保存到文件夹里面去，不知道下面的代码究竟错在哪里？procedure TForm4.RzBitBtn4Click(Sender: TObject);begin
openpicturedialog1.Execute;
image2.Picture.LoadFromFile( openpicturedialog1.FileName);
SAVEDIALOG1.Execute;
SAVEDIALOG1.Files.SaveToFile(image2.Picture.GetNamePath);end;

Answer 1

procedure TForm4.RzBitBtn4Click(Sender:TObject);
begin
  if openpicturedialog1.Execute then
    image2.Picture.LoadFromFile(openpicturedialog1.FileName);
  if SAVEDIALOG1.Execute then
    image2.Picture.SaveToFile(SAVEDIALOG1.FileName);
end;