Listview schläft ein

[HomerGER]

Hallo
ich lese vom System alle temp dateien ein und gebe sie in ein ListView aus
zusätzlich werden noch ein Icon, dateigrösse und der ort angegeben
nun hab ich folgenden effekt
alles steht (frozen - brrrrr kalt) und wenn die die function alles abgearbeitet hat ist alles mit einmal da!
ich wollte es gern das er sobald er eine datei gefunden hat sie sofort im Listview anzeigt und nicht das alles einschläft.
ich habe es mal so mit ca. 10000 Dateien laufen lassen
es dauert auch noch ein bischen lange - kann man da noch was drehen?

Delphi-Quellcode:

//******************************************************************************
//Haupt Function
Procedure TD_Dateien_Anzeigen_WHU();
var
laufwerke_sl : TStringList;
dateien_sl :   TStringList;
i : Integer;
laufwerk_s : String;
icon_list_il : HImageList;
file_info_fi : TSHFileInfo;
file_name_s : String;
file_groesse_e : Extended;
file_groesse_s : String;
file_verzeichnis_s : String;

begin
    //Icon laden
    icon_list_il := HImageList(SHGetFileInfo('', 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON));

    if (icon_list_il <> 0) then
    begin
        Haupt_Form.Wartung_Temp_ImageList1.Handle := icon_list_il;
        Haupt_Form.Wartung_Temp_ImageList1.Height := 16;
        Haupt_Form.Wartung_Temp_ImageList1.Width := 16;
    end;

    //ListViewlöschen
    Haupt_Form.Wartung_ListView42.Items.BeginUpdate;
    laufwerke_sl := TStringList.Create;
    dateien_sl := TStringList.Create;
    laufwerke_sl.Clear;
    dateien_sl.Clear;
    try
        //Laufwerke übergeben
        for i := 0 to Haupt_Form.Wartung_ListView41.Items.Count - 1 do
        begin
            if (Haupt_Form.Wartung_ListView41.Items.Item[i].Checked = True) then
            begin
                laufwerk_s := '';
                laufwerk_s := Copy(Haupt_Form.Wartung_ListView41.Items.Item[i].Caption, 1, 3);

                laufwerke_sl.Add(laufwerk_s);
            end;
        end;            

        //Dateien in ListCheckBoxen
        if (laufwerke_sl.Count > 0) then
        begin
            //Checkboxenlöschen
            Haupt_Form.Wartung_ListView41.Visible := False;
            Haupt_Form.Wartung_ListView42.Clear;
            Haupt_Form.Wartung_ListView42.Visible := True;

            for i := 0 to laufwerke_sl.Count - 1 do
            begin
                Dateien_Suchen_GU(dateien_sl, laufwerke_sl.Strings[i], '*.tmp');
            end;

            for i := 0 to dateien_sl.Count - 1 do
            begin

                file_name_s := ExtractFileName(dateien_sl.Strings[i]);

                file_groesse_e := Datei_Groesse_GU(dateien_sl.Strings[i]);
                file_groesse_s := Datei_Groesse_Format_GU(file_groesse_e);

                file_verzeichnis_s := ExtractFilePath(dateien_sl.Strings[i]);

                Haupt_Form.Wartung_ListView42.Items.Add;
                Haupt_Form.Wartung_ListView42.Items.Item[i].Caption := file_name_s;
                Haupt_Form.Wartung_ListView42.Items.Item[i].SubItems.Add(file_groesse_s);
                Haupt_Form.Wartung_ListView42.Items.Item[i].SubItems.Add(file_verzeichnis_s);

                //Icon
                SHGetFileInfo(PChar(dateien_sl.Strings[i]), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
                Haupt_Form.Wartung_ListView42.Items.Item[i].ImageIndex := file_info_fi.iIcon;

            end;
        end;
    finally
        laufwerke_sl.Free;
        dateien_sl.Free;
        Haupt_Form.Wartung_ListView42.Items.EndUpdate;
    end;

end;

Warung_ListView41 sind die Laufwerk
Wartung_ListView42 sind die Dateien