DWORD ReadPortThread(void *Param){
unsigned char Char;
while(1){
if(ComPort->Read(&Char,1)){
SendMessage(FindWindow("TFormMain","AppCom"),WM_USER,Char,0);
}
}
}

оно тырит первый байт. Закомментировал вот так вот :

DWORD ReadPortThread(void *Param){
unsigned char Char;
while(1){
/*if(ComPort->Read(&Char,1)){
SendMessage(FindWindow("TFormMain","AppCom"),WM_USER,Char,0);
}*/
}
}

Терь работает четко. Но зачем то же это нужно было кому-то ?