Архивирование ARJ

[Aндрей]

Помогите пожалуста разобраться с архивированием, очень важно.
Вообщем я создаю bat файл с кодом и запускаю его.
Вопрос в следующем: допустим, если указать путь к папке, в которой есть какие-нибуль файлы, то он создает архив. Вроде все хорошо. Но если указать путь к пустой папке,или папке в которой только вложенные папки без файлов, то он может ничего не создать, а иногда создает архив с файлами где лежит сам arj...
Как можно прописать, чтобы нормально все архивировалось..
Вот собственно текст программы:

function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) <>0 then
CharToOem(PChar(AnsiStr), PChar(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t:TextFile;
Begin
// Открытие текстового файла для записи
AssignFile(t,'c:\1234.bat');
ReWrite(t);
// Запись в файл
// Writeln(t,'cd '+'"'+StrToOem(Edit1.Text)+'"');
Writeln(t,'arj a '+' '+ '"' + StrToOem(Edit2.Text) + '"' +' '+ '"' + StrToOem(Edit1.Text) + '"');
//Writeln(t,'Pause'+' ');
Writeln(t,'del "c:\1234.bat"'+' ');
Writeln(t,'cls'+' ');
// Закрытие файла
CloseFile(t);
// Запуск файла
WinExec('C:\1234.bat', 1);
end;

[Anatole]

А обязательно создавать bat файл? Ведь можно запустить архиватор непосредственно из программы, предварительно выполнив соответствующие проверки наличия входных файлов и выходных путей и сформировать соответственно командную строку для архиватора

[Aндрей]

Честно говоря, не знаю как лучше, главное чтобы работало.
Вот моя программа.

Ее надо извлечь из архива и скинуть на диск с.
Она в принципе работает, единственное, если выбрать что-нибудь на др диске, то она добавляет в архив сам arj.
Если кто-нибудь сможет настроить, чтобы нормально работало, пишите, нужна ваша помощь.