Как узнать, есть ли в приёмном буфере RS232 данные?

Code:

procedure DataInBuffer(Handle: THandle;

                      var InQueue, OutQueue: integer);

var ComStat: TComStat;

   e: integer;

begin

if ClearCommError(Handle, e, @ComStat) then

begin

   InQueue := ComStat.cbInQue;

   OutQueue := ComStat.cbOutQue;

end

else

begin

   InQueue := 0;

   OutQueue := 0;

end;

end;