Datenweiterleitung zwischen TIdTCPClient und Serial Port

[Blumix]

@Sherlock
Die Write Funktion sieht wie folgt aus. Um Fehler zu vermeiden gebe ich die Position mit an.
function Write(const Buffer; Count: Integer): Integer;