unit DTest01Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Serial;

type
  TKommunikationsprogramm = class(TForm)
    Serial1: TSerial;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Serial1EventChar(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Kommunikationsprogramm: TKommunikationsprogramm;

implementation

{$R *.DFM}

procedure TKommunikationsprogramm.Serial1EventChar(Sender: TObject);

//var
//   s: string;
begin
// Formatierte Ausgabe
//     s:=Serial1.ReceiveText;
//     s:=Copy (s,1,Length(s)-2);
//     Memo1.Lines.Add(s);
// Unformatierte Ausgabe
     Memo1.Text:=Memo1.Text+Serial1.ReceiveText;

end;

procedure TKommunikationsprogramm.FormCreate(Sender: TObject);
begin
  Serial1.COMPort:=1;
  Serial1.Active:=True;
  Serial1.OpenComm;
end;

procedure TKommunikationsprogramm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     Serial1.CloseComm;
     Serial1.Active:=false;
end;

end.