Удаление папок

procedure TForm1.Button5Click(Sender: TObject);
var
s, DirectoryName: String;
i: Integer;
 
begin
Memo2.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
  begin
  for s in TDirectory.GetDirectories(Edit1.Text) do
    begin
    DirectoryName:=TPath.GetFileName(s);
      try
      if Memo1.Lines.IndexOf(DirectoryName) < 0 then TDirectory.Delete(Edit1.Text + DirectoryName, true);
      except
      Memo2.Lines.Add('Папка не найдена: ' + Memo1.Lines.Strings[i]);
      end;
    end;
  end;

except
Memo2.Lines.Add('Папка не найдена: ' + Memo1.Lines.Strings[i]);
end;

if not TDirectory.Exists(Edit1.Text + PathDelim + Memo1.Lines.Strings[i]) then
  Memo2.Lines.Add('Папка не найдена: ' + Memo1.Lines.Strings[i])

procedure TForm1.Button5Click(Sender: TObject);
var A: TStringDynArray;
    i: integer;
    isExistDirectoryInMemo1 : boolean;
begin
 
  isExistDirectoryInMemo1 := false;
  Memo2.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
     if TDirectory.Exists(Edit1.Text + PathDelim + Memo1.Lines.Strings[i]) 
       then isExistDirectoryInMemo1 := true 
            // вот ключевой момент. если хоть одна папка из Memo1 нашлась, то флаг := true
 
       else Memo2.Lines.Append('Папка не найдена: ' + Memo1.Lines.Strings[i]);
 
 
  if Not isExistDirectoryInMemo1 then 
    Memo2.Lines.Append('в Memo1 не указана ни одна из существующих папок. Это ошибка! Выход из процедуры по ошибке!');
  else begin  
    A := TDirectory.GetDirectories(Edit1.Text);
    for i := Low(A) to High(A) do
       if Memo1.Lines.IndexOf(TPath.GetFileName(A[i])) = -1 then TDirectory.Delete(A[i], true);
  end;
end;