удаление каталога

[ЮляЮлия]

Добрый вечер! Прошу помощи! Помогите пожалуйста!
У меня такая проблема....если я хочу удалить не пустой каталог,то ничего не выходит
Что исправить?

var keys,f:string;
      p,s:boolean;
      n,i:integer;
Begin
if error(comu) then exit;
delete(comu,1,6);{Вырезаем команду из строки}
keys := '';
if pos('-',comu) <> 0 then
 begin{Параметры команд}
  keys := Copy(comu,1,pos(' ',comu));
  delete(comu,1,pos(' ',comu));
 end;{Логические флаги}
if pos('p',keys) <> 0 then p := true
                      else p := false;
if pos('s',keys) <> 0 then s := true
                      else s := false;
f := comu;
{$I-} RmDir(f); {$I+}
if IOResult <> 0 then
 begin
  if not s then writeln('Каталог не существует или содержит файлы!');
  exit;
 end;
writeln('Каталог ', f, ' удален.');
if p then
 begin
  if pos('\',f) = 0 then
   begin
    GetDir(0,f);
    ChDir('..');
   end
                     else
   begin
    for i := 1 to length(f) do
    if f[i] = '\' then n := i;
    f[0] := Chr(n - 1);
   end;
 RmDir(f);
  end;
End;

[ZX Spectrum-128]

Вариант 1
http://articles.org.ru/cn/showdetail.php?cid=7175
Вариант 2
Выполнить exec для команды dos rd -r

[ЮляЮлия]

А как если с помощью FindFirst и FindNext ?

[ZX Spectrum-128]

Вариант № 1 именно так и работает.

[ЮляЮлия]

он неисправно работает...не удаляет каталог и его родительский...

[Serge_Bliznykov]

Сообщение от ЮляЮлия

он неисправно работает...не удаляет каталог и его родительский...

Приведите пример, когда код работает неверно!