procedure TForm1.Button1Click(Sender: TObject);
var
    i, count: Integer;
begin
  Count:= 0;
  memo1.Lines.Clear;
  memo2.Lines.Clear;
  for i:= 0 to 1000 do
  begin
    aCon:= TConThread.Create(false);
    repeat
    until (aCon.ErrCode = 0) or ((aCon.ErrCode <> 0) and (aCon.ErrCode <> -1));
    if (aCon.ErrCode <> 0) and (aCon.ErrCode <> -1) then
    begin
      memo2.Lines.Add(intToStr(aCon.ErrCode));
      count:= count+1;
    end;
    memo1.Lines.Add(intToStr(aCon.ErrCode));
    aCon.Free; // Hier gebe ich den Speicher wieder frei...
  end;
  showMessage(intToStr(count));
end;