[Kosmonaft68]

Код:

procedure ReadComm;
  var
   Resive:array [0..255] of char;
     Ovr : TOverlapped;
  begin

     while true do
   begin
    TransMask:=0;

    WaitCommEvent(CommHandle,TransMask,@Ovr); //ждем

    if (TransMask and EV_RXFLAG)=EV_RXFLAG then //проверяем нужное событие
     begin

      ClearCommError(CommHandle,Errs,@Stat);//сбрасываем флаг
      Kols := Stat.cbInQue;
      ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);//читаем
      //тут должна идти обработка принятой информации из Resive
      Form1.Panel1.Caption:=string(Resive);
      //не очень хороший вариант вывода, но для примера подойдет
     end;//mask
    end;//while
  end;