Mit IO.DLL Com Port schreiben und lesen

[paul99]

Hallo,

kennt sich jemand von Euch mit der io.dll für den Comport aus.
ich könnte einen Codeschipsel zum einlesen gebrauchen, ich habe Probleme damit
mein Programm stürzt unrgelmäßig ab. Ich vermute das ich die Bits falsch abfrage.
com1 = $03F8
until GetPortBit(COM1+5, 6)=true;
hier gehe ich davon aus das die Daten versendet wurden.

GetPortBit(COM1+5, 0)=true;
ich gehe davon aus das Daten anliegen

repeat
a[i] := char(PortIn(COM1+0)); // Hier Char einlesen
i := i+1;
until GetPortBit(COM1+5, 0) = false;
und so lese ich ein.

Weiss jemand was ich falsch mache ?
MfG