Fórum Como se limpa o buffer da serial (Com1, com2, com3....) ? #310370

Bom dia a todos. Tenho a seguinte função de leitura da serial:

variáveis públicas:
hComm: THandle;
bRead: array[0..255] of byte;
RetLeitor: LongBool;

Function TFprincipal.ReadComm : String;
var
BytesLidos: DWord;
i: Integer;
ReadStr: String;
begin
RetLeitor := ReadFile(hComm, bRead[0], 255, BytesLidos, nil);
if ord(RetLeitor) = -1 then
exit;
ReadStr := ´´;
If BytesLidos > 0 Then
For I := 0 To BytesLidos - 1 do
ReadStr := ReadStr + chr(bRead[i])
Else
FlushComm;
Result := ReadStr;
End;

Estou utilizando esta função para ler códigos q venham de um leitor serial a cada segundo. Para ler, funciona beleza. O problema é q se eu passar o código mais de uma vez ele acumula a leitura. Por exemplo:
se eu passar o produto 1 várias vezes fica assim: 001001001; e na verdade é para ser apenas 001.
Já tentei utilizar a função [b:ab217c879e]CancelIO(hcomm)[/b:ab217c879e], mas não funcionou.

Alguém conhece alguma função para limpar o buffer da serial?

Grato pela atenção.[b:ab217c879e][/b:ab217c879e][b:ab217c879e][/b:ab217c879e]