почему падают потоки?

[brownb]

Уважаемые знатоки подскажите почему падают потоки? что я делаю не так?

procedure TNewThread.Execute;
var
HTTP: TIdHTTP;
SSL: TIdSSLIOHandlerSocketOpenSSL;
strings: TStrings;
data:  TStringList;
url:string;
begin
  inherited;
while Work do
  begin
  CS.Enter;
CS.Leave;
   if Work then
      begin
     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=false; //Запрещаем редирект
     http.AllowCookies:=true;
     http.Request.UserAgent:=UserAg[random(10)];
     SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
     ssl.SSLOptions.Method := sslvTLSv1_2;
     ssl.SSLOptions.SSLVersions:= [sslvTLSv1_2];
     ssl.SSLOptions.Mode:=sslmUnassigned;
     HTTP.IOHandler := SSL;
   data:= TStringList.Create;
 begin
 try
url:=http.get(1111111111111);
data.Text:=http.get('22222222');
strings:= Parse('<bdo><h1>','</bdo></h1>', data.Text);
if IntToStr(Length(strings.text)) = '12' then
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
Append(GoodFile);
Writeln(GoodFile,url);
Closefile(GoodFile);
Rez:=1;
except
Rez:=-1;
end;
 end;
   Synchronize(Sync); //Делаем синхронизацию.
  end;
data.Free;
http.free;
strings.Free;
dec(Thread);
end;
    end;

Если можно кодом)

[evg_m]

  if IntToStr(Length(strings.text)) = '12' then
          Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
  Append(GoodFile);

А если НЕ ='12' то какой файл мы будем открывать
чему в этом случае GoodFile
Append у нас не входить в блок then

[brownb]

Сообщение от evg_m

А если НЕ ='12' то какой файл мы будем открывать
чему в этом случае GoodFile
Append у нас не входить в блок then

if IntToStr(Length(strings.text)) = '12' then
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
Append(GoodFile);
Writeln(GoodFile,url);
Closefile(GoodFile);
else 
//ничего не делаем?

или поток убивать надо?

if IntToStr(Length(strings.text)) = '12' then  begin
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
Append(GoodFile);
Writeln(GoodFile,url);
Closefile(GoodFile);
Rez:=1;
end;

так?