FillChar(S, 128, #0);
  StrPCopy(S, Memo1.Text);
{ tmLink.Tag := 0;
  tmLink.Enabled := true; }
  Com1Var.CntByte := 0;
  Com1Var.Master := True;
  Com1Var.Terminated := False;
  Com1Var.DCB.Flags := $1;
  Com1Var.DCB.BaudRate := 9600;
//инициализируем TOverlapped структуру
  FillChar(Ovr,SizeOf(TOverlapped),0);
  Ovr.hEvent := CreateEvent(nil,TRUE,FALSE,#0);
//пытаемся записывать в порт
  if not WriteFile(Com1Var.cId,s,StrLen(S),actual_bytes,@Ovr) and true then begin
    //обрабатываем случай "отложенной" записи
    if (GetLastError() = ERROR_IO_PENDING) and
       (WaitForSingleObject(Ovr.hEvent,INFINITE) = Wait_Object_0)
     then GetOverlappedResult(Com1Var.cId,Ovr,actual_bytes, false);
  end;
  CloseHandle(Ovr.hEvent);

if Cardinal((@RecivBuff[0])^) = Sync

Synchronize(AssBuff);

Form1.lbl6.Caption:='Текущая скорость: '+ IntToStr(dcb.BaudRate);

procedure TThreadCOM.Execute;
const
  cRead = EV_RXCHAR or EV_RXFLAG;
  cWrite = EV_TXEMPTY;
  cError = EV_BREAK or EV_ERR;
  cModem = EV_CTS or EV_DSR or EV_RLSD or EV_RING;
var
  Buff: array[0..255] of byte;
  Kols,Mask,Trans,Modem : cardinal;
  FStat: TComStat;
  Ovr: TOverlapped;

  procedure DoAsinchrone(AError: cardinal);
  begin
    if AError = ERROR_IO_PENDING
     then begin
       if WaitForSingleObject(Ovr.hEvent,INFINITE) = Wait_Object_0
        then GetOverlappedResult(FHandle,Ovr,Trans,True);
     end
     else begin
       FMessage := SysErrorMessage(AError);
       CloseHandle(Ovr.hEvent);
       Exception.Create(FMessage);
     end;
  end;

begin
  DoEvent(ceActivate);
  ZeroMemory(@Ovr,sizeof(TOverlapped));
  Ovr.hEvent := CreateEvent(nil,True,False,'');
  while not Terminated do begin
    Mask := 0;
    if not WaitCommEvent(FHandle,Mask,@Ovr)
     then DoAsinchrone(GetLastError);
    if Terminated then break;
    ClearCommError(FHandle,FError,@FStat);
    if Terminated then break;
    if (Mask and cError) > 0 then begin
      FMessage := FOwner.GetCommErrorString(FError);
      if FMessage <> '' then begin
        DoEvent(ceError);
        if FError <> 0 then begin
          CloseHandle(Ovr.hEvent);
          raise Exception.Create(FMessage);
        end;
      end;
    end;
    if Terminated then break;
    if (Mask and cRead) > 0 then begin
      Kols := FStat.cbInQue;
      if Kols > 0 then begin
        if not ReadFile(FHandle,Buff,Kols,Kols,@Ovr) //чтение из порта
         then DoAsinchrone(GetLastError);
        if Terminated then break;
        if Kols > 0 then begin
          FOwner.FBuffRead.ReadBuff(@Buff[0],Kols); //перенос прочитанного в конец
                                                    //буфера накопления владельца
          if (Mask and EV_RXCHAR) > 0
           then DoEvent(ceByte)
           else DoEvent(ceFlag);
        end;
      end;
    end;
    if (Mask and cModem) > 0 then begin
      GetCommModemStatus(FHandle,Modem);
      if Terminated then break;
      FModem.DSR := (Modem and MS_DSR_ON) > 0;
      FModem.CTS := (Modem and MS_CTS_ON) > 0;
      FModem.RING := (Modem and MS_RING_ON) > 0;
      FModem.RLSD := (Modem and MS_RLSD_ON) > 0;
      DoEvent(ceModem);
    end;
    if (Mask and cWrite) > 0
     then DoEvent(ceWrite);
  end;
  CloseHandle(Ovr.hEvent);
  DoEvent(ceDeactivate);
end;

procedure TThreadCOM.DoEvent(AEvent: TComEvent);
var
  Proc: procedure of object;
begin
  FcsEvent.Enter;
  try
    FTime := Now;
    case AEvent of
      ceActivate: Proc := OwnerConnect;
      // и так далее с параметрами  ceDeactivate,ceByte,ceFlag,ceWrite,ceModem,ceError
      else Proc := nil; end;
    end;
    if Assigned(Proc)
     then if FOwner.FSynchrone
           then Synchronize(Proc)
           else Proc
     else case AEvent of //т.е. если владельцу чихать на принимаемое - обнуляем накапливаемый буфер
            ceByte,ceFlag: FOwner.FBuffRead.FCount := 0;
          end;
  finally
    FcsEvent.Leave;
  end;
end;

procedure TThreadCOM.OwnerConnect;
begin
  FOwner.FOnConnect(FOwner.FOwner,FOwner,FTime);
end;
// Ну и в том же духе остальные методы - тоже методы из одной строки кода

Procedure TCommThread.Execute;  
var
  i:Integer;
  temp:dword;
  comstat : TComStat;
  dcb: TDCB;
Begin
  N:=0;
   COMport:= CreateFile(PortSt,GENERIC_READ or GENERIC_WRITE, 0, NiL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
   dcb.DCBlength:= sizeof(DCB);
  GetCommState(COMport, dcb);  
  dcb.BaudRate:= PortSpeed;        
  dcb.ByteSize := 8;          
  dcb.Parity := 0;        
  dcb.StopBits := 0;        
  SetCommState(COMport, dcb);  
  SetCommMask(COMport,EV_RXCHAR);  
  SetupComm(COMport,255,255);
  overlapped.hEvent:= CreateEvent(NiL, true, true, '');
  Form1.lbl6.Caption:='Текущая скорость: '+ IntToStr(dcb.BaudRate);

  Repeat
    WaitCommEvent(COMport, temp, @overlapped);    
    WaitForSingleObject(overlapped.hEvent, INFINITE);
        if terminated then break;
    ClearCommError(COMport, temp, @comstat);  

    if comstat.cbInQue >= PrRaz  then  
    // PrRaz - количество ожидаемых байт которое рассчитывается исходя из количества направленных байт и полученного ответа
      begin
        sleep(0);
        Form1.lbl3.Caption:= 'Будет получено: '+ IntToStr(comstat.cbInQue)+' байт';
        ReadFile(COMport, BufRd, comstat.cbInQue, temp, @overlapped);
        Form1.lbl4.Caption:='Пришло: '+IntToStr(temp)+' байт';
        Synchronize(AssBuff);
         //Ниже вывод полученных байт в memo при определенных байтах вывод в другой memo и label
        for i:=0 to comstat.cbInQue-1 do
        begin
        tmpHex2:= tmpHex2+IntToHex(byte(BufRd[i]),2)+' ';
        end;
        Form1.mmo1.Lines.Add('  ECU—>PC '+tmpHex2);
        If Pos('05 07 72', tmpHex2)<>0 then Form1.mmo2.Lines.Add(tmpHex2);
        tmpHex2:='';
        ECUtext:= IntToHex(byte(BufRd[12]),2)+' '+IntToHex(byte(BufRd[13]),2)+' '+IntToHex(byte(BufRd[14]),2)+' '+
        IntToHex(byte(BufRd[15]),2)+' '+IntToHex(byte(BufRd[16]),2);
        if (BufRd[5]=$05)and(BufRd[6]=$5D) then Form1.lbl2.Caption:= 'Номер блока управления: '+ ECUtext;
        //очиска буфера и порта
        ZeroMemory (@BufRd,SizeOf(BufRd));
        PurgeComm(COMport, PURGE_RXCLEAR);
      end;
  Until Terminated;
End;

...
while not Terminated do begin
  Count := ReadFile(...
  if Count > 0 then begin
    ...
  end;
end;
...

procedure TCom.SetBaudRate(AValue: cardinal);
begin
  if AValue <> FDCB.BaudRate then begin
    if FActive
     then begin
       Connect := False;
       // может чего-то еще в зависимости от наличия потока и т.п.
       FDCB.BaudRate := AValue;
       // м.б. какие-нибудь PurgeComm-ы
       Connect := True;
     end
     else FDCB.BaudRate := AValue;
  end;
end;

поток.Terminate; // если Вы юзаете потомок от TThread
SetCommMask(FHandle,0); // гарантированное прерывание WaitCommEvent-а в коде потока
CancelIo(FHandle);      // завершение всяческих Read(Write)File в коде потока
CloseHandle(FHandle);   // закрытие хэндла порта
выставляем скорость
открываем порт.

31  IRP_MJ_DEVICE_CONTROL - Request operates a serial port
   STATUS_SUCCESS
         IOCTL_SERIAL_LSRMST_INSERT - Request enables or disables the insertion of information about line status and modem status in the receive data stream
            LSRMST_INSERT - 0xea0188

BOOL DeviceIoControl(
  (HANDLE) hDevice,            // дескриптор устройства
  IOCTL_SERIAL_LSRMST_INSERT,  // dwIoControlCode
  (LPVOID) lpInBuffer,         // буфер ввода
  (DWORD) nInBufferSize,       // размер буфера ввода
  NULL,                        // lpOutBuffer
  0,                           // nOutBufferSize
  (LPDWORD) lpBytesReturned,   // число возвращаемых байтов
  (LPOVERLAPPED) lpOverlapped  // структура OVERLAPPED
);

        Move(Buff[0],RecivBuff[CntByte],Kols);
        Inc(CntByte,Kols);

        Inc(CntByte,Kols);
        Move(Buff[0],RecivBuff[CntByte],Kols);

if not WaitCommEvent(cId,Mask,@Ovr) then
  begin
    if GetLastError() = ERROR_IO_PENDING
     then
        GetOverlappedResult(cId,Ovr,Trans,False);
  end;

if not WaitCommEvent(CommHandle,Mask,@Ovr) then
begin
  if GetLastError() = ERROR_IO_PENDING then
   begin
    Signal := WaitForMultipleObjects(1,@Events,False,INFINITE);
    if (Signal = WAIT_OBJECT_0 + 1) then
GetOverlappedResult(CommHandle,Ovr,Trans,False);
   end;
end;