Naja aus der Definition der Funktion hinter Inputs kann ich nicht wirklich erkennen, was dieses Inputs nun darstellen soll:

Code:
function TComPort.Inputs: Integer;
var
  mask: DWord;
begin
 GetCommModemStatus(PortHandle, mask);
 result := (mask div 16) and 15;
end;