7-Zip заархивировать файл

[Shouldercannon]

Задача заключается в том, чтобы заархивировать один единственный файл по указанному пути. Так работает нормально, если фалй лежит в корне папки с EXE.

procedure TForm1.Button1Click(Sender: TObject);
begin
  SevenZip1.SZFileName := 'C:\Project\qwerty.7z';
  SevenZip1.Files.Clear;
  SevenZip1.Files.AddString('Test.txt');
  SevenZip1.Add;
end;

Но если я хочу забрать файл из другого места, например отсюда C:\Documents and Settings\Shouldercannon\

procedure TForm1.Button1Click(Sender: TObject);
begin
  SevenZip1.SZFileName := 'C:\Project\qwerty.7z';
  SevenZip1.Files.Clear;
  SevenZip1.Files.AddString('C:\Documents and Settings\Shouldercannon\Test.txt');
  SevenZip1.Add;
end;

то в архиве появляются каталоги: Documents and Settings\Shouldercannon, а они не нужны. Как исправить сие положение?

[Михаил Юрьевич]

че за компонент?

[Человек_Борща]

перемещать файлы в папку с программой

[Shouldercannon]

Сообщение от Михаил Юрьевич

че за компонент?

SevenZipVCL 0.7.4a

Сообщение от Человек_Борща

перемещать файлы в папку с программой

Это не вариант. Разве больше никак нельзя?

[p51x]

Запустить консольный 7з с правильными параметрами.

[Shouldercannon]

Чтобы добавлялся только файл без каталогов нужно выставить AddStoreOnlyFilename в True.