на самом деле зря вставил код в существующий. Я же не зря написал отдельную процку, просто ее надо было использовать, а то теперь получился размазанный по всей процедуре код.
Кстати, вот меня смущает такая строка:
Код:
if k = rL.Count then k := 0;
А значение в k потом нигде не используется. Нафига оно вообще?
И еще. Если у тебя много файлов, да еще и больших, то я бы подумал на тему написания многопоточного приложения.