Delphi 7. Как сделать, чтобы программа не зависала при выполнении цикла "for"?

Добавьте это

Application.ProcessMessages;

в тело цикла. Например:

for i := 0 to FileListBox1.Items.Count - 1 do
  begin
    Application.ProcessMessages;
    ...
  end;