🚀 go-pugleaf

Hi all,

I have a little FTP server with Indy 9 components. When user connects (e.g. 
Total Commander), then disconnects, connects, disconnects...  sometimes I 
get Windows Blue Screen of Dead :-( . This is the smallest code, when this 
error still appears:

//---------------------------------------------------------------------------

void __fastcall TFormMain::FormCreate(TObject *Sender)
{
  ButtonStart->Enabled=true;
  ButtonStop->Enabled=false;
}

void __fastcall TFormMain::ButtonStartClick(TObject *Sender)
{
  FTPServer->Active=true;
  ButtonStart->Enabled=!FTPServer->Active;
  ButtonStop->Enabled=FTPServer->Active;
}

void __fastcall TFormMain::ButtonStopClick(TObject *Sender)
{
  FTPServer->Active=false;
  ButtonStart->Enabled=!FTPServer->Active;
  ButtonStop->Enabled=FTPServer->Active;
}

void __fastcall TFormMain::FTPServerListDirectory(TIdFTPServerThread 
*ASender,
      const AnsiString APath, TIdFTPListItems *ADirectoryListing)
{
  TIdFTPListItem        *LFTPItem;

  ADirectoryListing->ListFormat=flfUnix;
  ADirectoryListing->DirectoryName=APath;
  LFTPItem=ADirectoryListing->Add();
  LFTPItem->FileName="test.txt";
  LFTPItem->Size=100;
  LFTPItem->ItemType=ditFile;
  LFTPItem->ModifiedDate=Now();
  LFTPItem->OwnerName="anonymous";
  LFTPItem->GroupName="all";
  LFTPItem->OwnerPermissions="rw-";
  LFTPItem->GroupPermissions="rw-";
  LFTPItem->UserPermissions ="rw-";
}

//---------------------------------------------------------------------------

What I am doing wrong? Error appears only on non-NT platforms (98, Me).

-Stanley-