ActiveDocument.SaveAs() Как програмно сохранятся??

Столкнулся с такой же проблемой, сам по-тихоньку разбираюсь, но так как являюсь не продвинутым программером, очень хотел бы получить справку от знатоков.
Не разобрался с переменной vSecurityParams:OleVariant.
Был бы признателен

Странно, 7я делфи ругается на нехватку 3го параметра, но его тоже можно оставить неопределенным.
Знатоки, подскажите, мне необходимо чтоб при сохранении как.. пользователем выпадала форма сохранения, но чтото не получается у меня, вот код:
procedure TmForm.Btn_CreateClick(Sender: TObject);
  var
    Ini: TIniFile;
  begin
    //если стоит галочка "Текущий чертеж проекта", тогда безо всяких запросов файл сохраняется в папку хранения текущих работ (берем из ini файла)
    if mForm.CheckBox_CurrentDrw.State = cbChecked
     then
      begin
        //определение полного пути целевого файла для сохранения - состоит из корня для сохранения + имя папки для текущих работ + имя файла
        FullPath:= Save_dir +'\'+ Temp_dir +'\'+ mForm.Edit_FileName.Text;
        if AcadApp.ActiveDocument.SaveAs('FullPath', EmptyParam, EmptyParam)
         then begin ShowMessage('Документ успешно сохранен'); mForm.Close; end //end then
             else begin
                if GetLastError=2 then begin MessageDlg('...', mtError, [mbYes], 0); {mForm.Close;} end;
                if GetLastError=3 then begin MessageDlg('...', mtError, [mbYes], 0); {mForm.Close;} end
                                  else MessageDlg('Ошибка сохранения с кодом -'+ IntToStr(GetLastError), mtError, [mbYes], 0); end; //end else
        exit;
      end;
    //если поля имени объекта и номера проекта пустые, то выдается предупреждение
    if (mForm.ComboBox_ObjName.Text = '') or (mForm.ComboBox_PrjNumber.Text = '')
     then
      begin
        ShowMessage('Введите название объекта или номер проекта для сохранения чертежа!');
        exit;
      end;
        FullPath:= Save_dir +'\'+ mForm.ComboBox_ObjName.Text +'\'+ mForm.ComboBox_PrjNumber.Text +'\'+ mForm.Edit_FileName.Text;
    if AcadApp.ActiveDocument.SaveAs('FullPath', EmptyParam, EmptyParam)
     then begin ShowMessage('Чертеж сохранен'); mForm.Close; end //end then
     else begin
        if GetLastError=2 then begin MessageDlg('...', mtError, [mbYes], 0); {mForm.Close;} end;
        if GetLastError=3 then begin MessageDlg('...', mtError, [mbYes], 0); {mForm.Close;} end
                          else MessageDlg('Ошибка сохранения с кодом -'+ IntToStr(GetLastError), mtError, [mbYes], 0); end;
Ошибку такую выдает:
[Ошибка] uRezerv.pas(144): Type of expression must be BOOLEAN