procedure THISDialog._work_doExecute;
var
  Opts: TOpenSaveOptions;
begin
  if not Assigned(FSaveDialog) then
  begin
    // By NetSpirit
    Opts := DefOpenSaveDlgOptions;
    if _prop_NoChangeDir = 1 then Opts:= Opts + [OSNoChangedir];
    if _prop_PathMustExists = 0 then Opts := Opts - [OSPathMustExist, OSFileMustExist];
    if _prop_OverwritePrompt = 0 then Opts := Opts - [OSOverwritePrompt];
    FSaveDialog := NewOpenSaveDialog(_prop_Title,_prop_StartDir, Opts);
    
    FSaveDialog.OpenDialog := False;
    FSaveDialog.WndOwner := ReadHandle;
  end;

  FSaveDialog.Filter := _prop_Filter;
  FSaveDialog.FileName := ReadString(_Data, _data_FileName, _prop_FileName);
  if FSaveDialog.Execute then
    _hi_CreateEvent(_Data, @_event_onExecute, FSaveDialog.FileName)
  else
    _hi_CreateEvent(_Data, @_event_onCancel);
end;