Empfangen mit ApdComPort1 funktioniert nicht

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TfrmEmpfangenDemo.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
  S : String;
begin
  S := '';
  for I := 1 to Count do begin
    C := ApdComPort1.GetChar;
    case C of
      #0..#31 : {Don't display} ;
      else S := S + C;
    end;
  end;
  edEmpfangString.Text:= s;
  ShowMessage('Got an OnTriggerAvail event for: ' + S);
end;

mit dieser Procedure aus der Doku. funktioniert das Empfangen von Zeichen nicht. Hat jemand ein weiteres Beispiel für mich das Funktioniert?
Die Verbindung wird mit Com0Com hergestellt.
Vielleicht liegt es auch an der Einstellung von ApdComPort1.

Bis bald Chemiker