unit DTest02Unit1;

interface

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

type
  TKommunikationsprogramm = class(TForm)
    Serial1: TSerial;
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Serial1EventChar(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  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;

procedure TKommunikationsprogramm.Button1Click(Sender: TObject);
var
   s: string;
begin
  // send data
   Serial1.TransmittText (Edit1.Text+#13);
   s:=Copy (Edit1.Text,2,Length(Edit1.Text));
end;

end.