Ich habe leider die Korrketurhinweise übersehen:

Corrections von Tayeb L.

1) CommFile => declare: CommFile : THandle and initialize it.
2) function ReadText: string; (not procedure)
3) PChar(DeviceName) //with DeviceName := 'COM1'
Leider ist mir bis auf 2) garnicht klar, was gemeint ist.

Vielleicht könnte mir das ja jemand kurz erklären. DAnke!

MFG Moritz