程序代码：

procedure TfrmMain.btnSaveClick(Sender: TObject);
var
  strFn:String;
begin
  self.sd.InitialDir:=self.reg.ReadString('保存水印图象');
  self.sd.Title:='将嵌入水印后的图像保存为';
  self.sd.Filter:='*.bmp|*.bmp';
  if(self.sd.Execute)then
  begin
    strFn:=self.sd.FileName;
    self.reg.WriteString('保存水印图象',ExtractFileDir(strFn));
    SaveImage(self.Image2.Picture.Bitmap,strFn);
  end;
end;