Also, ich halte wenig davon eine Komplettlösung anzubieten.
Außerdem wirst du dich im Quelltext nicht so leicht zu recht finden, da er sehr viel anderes Zeugs (z.B. grafische Darstellung) enthält, was du ja gar nicht brauchst.
Schau dir mal das an:
http://www.swissdelphicenter.ch/torr...ode.php?id=841
http://users.pandora.be/dirk.claessens2/ <- TComport