void __fastcall TForm1::DataRecieved(TObject *Sender, const char *Buffer, unsigned Length){ Memo1->Lines->Add("Symbols recieved : " + IntToStr(Length)); Memo1->Lines->Add(Buffer);}