허접한 제 소스입니다.. 그냥 참고만 하시구요.. 함수인자가 다를수도 있으니..
다른 고수님들이 더 좋은 예제를 가르쳐주시길~~~

void __fastcall TForm1::Serial1Event_RXCHAR(TSerial *Sender, BYTE *Buffer, WORD Size)
{
    AnsiString strTemp;
    AnsiString strCurr;
    BYTE data;

    for(int i=0; i<Size; i++){
        data = Buffer[i];
        if(chkHex->Checked){
            if(data > 0x0f) strTemp = Format("0x%2x ", ARRAYOFCONST((data)));
            else strTemp = Format("0x0%1x ", ARRAYOFCONST((data)));
        }
        else{
            char buf[3];
            sprintf(buf, "%c", data);
            strTemp = buf;
        }

        strCurr += strTemp;
    }

    Memo1->Lines->Add(strCurr);
}

조진수 님이 쓰신 글 :
: OnRxChar 로 data를 수신 하는데, 수신은 되는데 hex값이 깨져서 나와... 맞게 들어오는지 잘 몰라서 이
:
: 값을 hex값으로 Memo->Text에 뿌려 주려고 하는데, 이리저리 해보고 찾아보고 하는데도 잘 안돼네여...
:
: 어떻게 해야 되는지..... 갈쳐 주십시요~