[El Sanchez]

с тех пор как добавил "Отмену" (еще до внесения мной изменений) часто вылетает ошибка без выделения строки в дебаггере "Out Of Range" »

Johny777, ты уверен, что массив FileList существует и в нем есть хотя бы 1 элемент?
Так нельзя:

Код:

if FileList[0] = '' then FileList[0] := '*.*';
...
if FileList[0] <> '' then
    for i := 0 to GetArrayLength(FileList)-1 do

Нужно:

Код:

if GetArrayLength(FileList) = 0 then
begin
  SetArrayLength(FileList, 1);
  FileList[0] := '*.*';
end;
...
if GetArrayLength(FileList) > 0 then
    for i := 1 to GetArrayLength(FileList)-1 do

библиотека isdone не предназначена ни для сжатия, ни для разбития на тома »

Gnom_aka_Lexander, хоть буду знать для чего она.