void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender, TBytes AData, TIdSocketHandle *ABinding){int dlinna = AData.Length;Memo1->Lines->Add(dlinna);return; // это временно чтоб глюк отловить//-----------------------// всякий другой код//-----------------------}