Systemfehler. Code: 1400 Ungültiges Fensterhandle

[Bootscreen]

Moinsen

und wiedermal ich ^^

Diesmal habe cih das Problem das ich beim schließen meines Programmes folgenden Fehler bekomme:

http://img372.imageshack.us/img372/2...blage01kd4.jpg

Der Fehler tritt immer dann auf wenn ich im Programm meine Funktion in einem Thread starte. Starte ich die Funktion ohne Thread kommt kein Fehler.

Der Fehler kommt auch nur dann wenn ich folgenden Bereich drin lasse (kommentiere ich ihn aus geht es wieder).

Delphi-Quellcode:

   for iiii := 0 to ListBox4.Count -1 do
            begin
                Form1.Memo1.Lines.Clear;
                Form1.Memo1.Lines.Text := '';
                ListBox3.Items.Clear;
                ListBox2.Items.Clear;    
                Filename := ListBox4.Items.Strings[iiii];
                Memo1.Lines.LoadFromFile('Datanorm\'+Filename);
                for iii := 0 to Memo1.Lines.Count-1 do
                begin
                   datanormsatz := TStringList.Create;
                    line := Memo1.Lines[iii];
                    Split(';',line,datanormsatz);
                    if datanormsatz[0] = 'A' then
                        ListBox3.Items.Add(line);
                    if datanormsatz[0] = 'T' then
                        ListBox2.Items.Add(line);
                   datanormsatz.free;
                end;
               Label5.Caption := IntToStr(Listbox3.Count-1);

          Memo2.Lines.Add('Beginne Import von: '+ Filename);
                WriteLog('Beginne Import von: '+ Filename);
                //db_import;

            end;

Hoffe ihr seht wo mein Fehler liegt. kann euch auch gerne noch den Rest des Codes zeigen.