왕초보라 고수님들이 올려놓은 자료로 스터디를 하고 있습니다.

아래와 같이 코딩을 하였으나 이상하게

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  s : string;
begin

   ComPort1.ReadStr(s,Count);
   Edit2.Text := s;

end;

이 프로시져가 실행이 안되네요...

왕초보라 정말 몰라서 조언을 구합니다. 꼭 좀 도와주세요

첨부는 테스트 프로젝트 파일입니다. 혹시 콤퍼넌트 프로퍼티 설정 문제일수도 있어서 올려봅니다

조언 부탁드립니다....

감사합니다.
------------------------------
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComPort1: TComPort;
    Edit1: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComPort1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ComPort1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ComPort1.WriteStr(Edit1.Text);
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  s : string;
begin

   ComPort1.ReadStr(s,Count);
   Edit2.Text := s;

end;

end.