[Помогите!] Оптимизация загрузки файлов

[IncubusX]

Добрый день, у меня небольшой вопрос по оптимизации программы, при загрузке файла программа подвисает, как можно это поправить? Application.ProcessMessages; уже пробывал.
Сам код:

if FindFirst(GetCurrentDir+'\input\*.txt', faAnyFile, fs)=0 then
 repeat
    Listbox1.Items.LoadFromFile(GetCurrentDir+'\input\'+fs.Name);
 until FindNext(fs)<>0;
 FindClose(fs);
 sl := TStringList.Create;
 sl.Sorted := true;
 sl.Duplicates := dupIgnore;
 sl.Assign(ListBox1.Items);
 ListBox1.Items.Assign(sl);
 sl.Free;

[Тигрь]

Загрузку файла вынеси в отдельный поток.