daten von serieller Schnittstelle

[binderj1]

Hallo
da bin ich wieder.

ich bin wohl zu blöd um das zu kapieren.
mit folgendem Prog. bekomme ich nur blöde Sonderzeichen (siehe Bild)bild3.jpg

im Mini Terminal läuft es aber richtig bild4.jpg

nur mein Prog streikt kann mir jemand weiter helfen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VaClasses, VaComm, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    VaComm1: TVaComm;
    procedure FormCreate(Sender: TObject);
    procedure readCom3(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
vacomm1.Open;

end;

procedure TForm1.readCom3(Sender: TObject; Count: Integer);
 var
 text: string;
 i: integer;

begin
 text:=vacomm1.readtext;
 label1.Caption:=text;
end;

end.