Wert aus COM Schnittstelle auslesen

[lkz633]

Hallo,

würde gerne einen Wert aus der Com Schnittstelle abfragen (Win98), habe dazu folgenden QBasic code:

Code:

10 OPEN <<COM1:1200,N,7,2,RS,CS,DS,CD>> AS#2
20 A$="D"
30 Print #2,A$
40 IN$=INPUT$(14,#2)
50 PRINT IN$
60 CLOSE #2
70 END

Wie übersetze ich das am schnellsten in Delphi, kenn mich damit leider überhaupt nicht aus.
Am besten ohne irgendwelche Komponenten oder DLL, ich denke z.B AsyncPro ist dafür deutlicher overkill.

Danke und Gruss
lkz633