Delphi - puerto serial

hola
no sé si este es el foro indicado para preguntar esto, pero quisiera saber como puedo limpiar el buffer del puerto serial mediante código
gracias

Aqui te dejo un poco de codigo. Basicamente abre el com1 lo purga y luego lo cierra. Creo que te servira para orientarte y mirando la ayuda conseguiras lo que estas buscando.

var
h: thandle;
begin
h:= CreateFile('\\.\COM1',GENERIC_READ or GENERIC_WRITE,0,
nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
PurgeComm(h, PURGE_TXABORT or PURGE_RXABORT or
PURGE_TXCLEAR or PURGE_RXCLEAR);
CloseHandle(h);
end;