Timer und SendText Problem

ich will einen recht grossen String (ca. 8000 Zeichen) mit SendText() verschicken. Funktioniert auch gut das Problem ist nur das der String alle 60 sec von einem Timer verschickt wird und das geht nicht da kommen immer nur die ca. letzten 4000 Zeichen an. Ich hab es mal statt dem Timer mit einem Button versucht und da kommt alles an.

Also wo kann das Problem sein.

bool merker;
for(int i=1;i<userlist->RowCount;i++)
{
   if(userlist->Cells[1][1]=="")
     break;
   merker=false;
   String ausgangstext="#103#";
   ADOQuery->SQL->Clear();
   ADOQuery->SQL->Add("SELECT * FROM notizzettel WHERE `empfaenger`='" + userlist->Cells[1][i] + "' AND `status`!='erledigt' AND `zustellen` <= NOW();");
   ADOQuery->Open();
   for(;!ADOQuery->Eof;ADOQuery->Next())
   {
      ausgangstext+=ADOQuery->FieldByName("ID")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("sender")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("betreff")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("text")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("gesendet")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("art")->AsString;
      ausgangstext+="#";
      ausgangstext+=ADOQuery->FieldByName("prioritaet")->AsString;
      ausgangstext+="#";
      merker=true;
   }
   if(merker==true)
     Server->Socket->Connections[i-1]->SendText(ausgangstext);
}

Das ist der Inhalt der Timers

kpeter

void __fastcall TFormMain::Timer1Timer(TObject *Sender)
{
   //Timer1->Interval = 60000;
   Timer1->Interval = 5000;   // nur für Test alle 5 sek.
   Timer1->Enabled = false;
      // deine Routine
   Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

Haste das mit drin?

MfG
kpeter