все запросы c нерабочими прокси уходят в good

[megostudent]

не пойму что я намутил тут такого

procedure TForm1.Button1Click(Sender: TObject);
begin
  idhttp1.ProxyParams.ProxyServer := Copy(proxy[q], 1, Pos(':', proxy[q]) - 1);
  idhttp1.ProxyParams.ProxyPort :=strtoint(Copy(proxy[q], Pos(':', proxy[q]) + 1, length(proxy[q])));
      try
      site:=idHTTP1.Get('http://monitoring.cs-hlds.ru/'+edit1.Text+'/');
      RegExp := TRegExpr.Create;
      RegExp.InputString := site;
      RegExp.Expression := edit1.text+', "up", "(.*?)"';
      if RegExp.Exec then begin
      r:=RegExp.Match[1];
      RegExp.Free;
      end;
        PostData.Add('id='+edit1.Text);
        PostData.Add('fun='+r);
        IdHTTP1.Post('http://monitoring.cs-hlds.ru/'+edit1.Text+'/',PostData);
        inc(q);
        inc(good);
        label1.Caption:=inttostr(good);
      except
     inc(q);
     inc(error);
     label1.Caption:=inttostr(error);
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  q:=0;
  good:=0;
  error:=0;
  PostData:=TStringList.Create;
  proxy:=TStringList.Create;
  proxy.LoadFromFile('proxies.txt');
  idhttp1.ConnectTimeout:=5000;
  idhttp1.ReadTimeout:=7000;
end;

end.

[Slym]

кусок устранена утечка RegExp

RegExp := TRegExpr.Create;
try
   RegExp.InputString := site;
   RegExp.Expression := edit1.text+', "up", "(.*?)"';
   if RegExp.Exec then
      r:=RegExp.Match[1]
   else
      break;
finally
  RegExp.Free;
end;

[megostudent]

бывает же))

label2.Caption:=inttostr(error);