Problem mit TStringList

[Christian.Ossi]

Ich habe eine TStringList in einer Procedure vereinbart, die dort auch über Variable:=TStringList.Create erzeugt wird. Danach werden Dateinamen in die Liste geschrieben und die Liste an einen Thread übergeben, der die Dateien downloaden soll. Der Thread hat seine eigene TStringList und deshalb wird im Constructor die Variable übergeben.

Soweit sogut.

Der Thread macht was er soll und beendet sich am Ende und gibt seine eigene TStringList wieder frei, jedoch wenn ich am Ende der Procedure wenn alles schon abgeschlossen ist, den Befehl für die Freigabe der TStringList Variable (Variable.Free) einfüge, stürzt dort das Programm ab.


Quelltexte

Delphi-Quellcode:

Procedure KnopfUpdateClick(Sender: TObject);
Var Variable: TStringList;
Begin
Variable:=TStringList.Create;
Variable.Add(....);
HTTPThread:=HTTPDownload.Create(Variable);
While Not HTTPThread.Terminated Do Application.ProcessMessages;
Variable.Free; <--- ABSTURZ
End;

Delphi-Quellcode:

HTTPDownload = Class(TThread)
Protected
Procedure Execute; Override;
Private
HTTPSocket: TIdHTTP;
    Stream: TFileStream;
      Down: TStringList;
Public
Constructor Create(Const FDown: TStringList);
 Destructor Destroy; Override;
End;

Delphi-Quellcode:

Constructor HTTPDownload.Create(Const FDown: TStringList);
Begin
HTTPSocket:=TIdHTTP.Create(Nil);
Down:=TStringList.Create;
Down:=FDown;
Inherited Create(False);
End;

Destructor HTTPDownload.Destroy;
Begin
HTTPSocket.Free;
Down.Free;
Inherited;
End;

Procedure HTTPDownload.Execute;
Var I: Word;
Begin
FreeOnTerminate:=True;
If Not Terminated then
Begin
For I:=0 to (Down.Count - 1) Do
Begin
Stream:=TFileStream.Create(Down[I],fmCreate);
Try
HTTPSocket.Get(Down[I],Stream);
FreeAndNil(Stream);
Except
End;
End;
Destroy;
End;
End;