🚀 go-pugleaf

I have a TClientSocket which is acting like a POP3 mail reader. I get all the headers and put them into a sortable 
StringGrid, so I can turf out all the spam before I download the message bodies.

I have one remaining problem which is to do with the delay I am having to put in the socket read routine in order 
to get it to work properly. It is still not perfect, but here is the code :-

// Globals char *bf, int wh=0; and bool dun=false; to begin with.
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket)
{
  int ii,jj=Socket->ReceiveLength();
  while (jj>0)
  {
    ii=Socket->ReceiveBuf(&bf[wh],jj);
    wh+=ii; bf[wh]='\0'; Sleep(200); jj=Socket->ReceiveLength();
  }
  dun=true;
}

How do you detect when the server has finished sending data to the client in a non-blocking environment? 
Without the Sleep command, ReceiveLength can sometimes report 0 bytes to read, despite there being more 
waiting at the server end to be sent. The delay of a fifth of a second works most of the while on a broadband 
connection (not always), but it really slows the app down. I have also tried if (Socket->LookupState==lsIdle) 
dun=true; and that was no better. Any ideas?

Mark Jacobs