🚀 go-pugleaf

All,

I'm losing my Indy application in the Post() function. It only returns after 
the news server connection times out and automatically disconnects (5 
minutes or so later). This code was working with the old Borland sockets. 
Everything else with indy seems to port just fine. Any idea whats wrong? The 
LineToStream function simply appends "\r\n"

Why might the Post() function hang?

       LineToStream("From: test@nomail.com");
       LineToStream("Newsgroups: " + Group->Text);
       AnsiString subLine="Subject: ";
       subLine+=Subject->Text+" ";
       subLine+=IntToStr(IndexFile->Data.Posting.ID)+" ("+curPos+
                "\\"+total+")";
       LineToStream(subLine);
       // End of header is a blank line
       LineToStream("");
       TMemoryStream* fileMem=new TMemoryStream();
       fileMem->LoadFromFile(search.Name);
       //add this file size to the total post body size
       TotalPostSize+=fileMem->Size;
       //now add the file to the stream
       FDataStream->Write("Just A Test\n\r",13);
       //clean
       do
        {
         // Set stream pointer to beginning of stream because TNntpCli will 
post
         // from the current position
         FDataStream->Seek(0, soFromBeginning);
         // Ask the component to post the stream. The posting occurs in the
         // background ! We will receive the OnRequestDone event when done.
         // It's in this event handler that the stream must be destroyed
         //set the group
         Label4->Caption="Posting "+subLine;
         //check the connection
         try
          {
           CheckConnect();
           IdNNTP1->SelectGroup(Group->Text);
           IdNNTP1->Post(FDataStream);
          }
         catch(Exception &E)
          {
           ShowMessage("Problem because "+E.Message+" during posting.");
          }