Compactando arquivos com Winrar

Olá Gabriel, não sei da relação do Delphi com o Winrar, me desculpe, mas existe algo mais especifico entre as duas tecnologias?

Bom, o que eu consegui encontrar foi isso >

winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" a '+'C:\teste.rar'+' "'+'C:\teste.txt'+'"')),sw_normal);

Este comando executa o winrar e compacta o arquivo teste.txt, porem desta forma este comando se torna muito limitado, vou tentar trabalhar com Edit para inserir o caminho ou com selDir. Obrigado pela atenção.

Te peço desculpas, mas só conheço a forma de usar o Winrar de forma independente, não com outro programa.

Amigo, tenho um pequeno problema com o este comando, por exemplo, caso o arquivo que eu for compactar esteja dentro de outras pastas, o winrar não compacta apenas o arquivo, mas sim a pasta do destino do arquivo, veja o comando, por gentileza >

procedure TForm1.Button1Click(Sender: TObject);
var
selDir : string;
begin
SelectDirectory('Selecione uma pasta', 'meu computador:\', selDir);
winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" a '+selDir+'\Estoque.rar'+' "'+'C:\Teste\banco\ESTOQUE.gdb'+'"')),sw_normal);
end;

Neste caso então, dentro do arquivo compactado tem a pasta teste a pasta banco, e ai então o arquivo estoque.gdb. E gostaria que no arquivo compactado estivese apenas o estoque.gdb. Se puder ajudar, agradeço.

Desculpas, realmente eu não sei.