Bruno,
Is there a better way to check the data is in the buffer, then counting using the RxChar event.
Ray.
procedure TSymCommsDlg.VaComm1RxChar(Sender: TObject; Count: Integer);
begin
if Count >= 742 then begin
GetData;
end;
end;
begin
if Count >= 742 then begin
GetData;
end;
end;