ActiveCommで自動受信したい

ふみ 2004-07-17 03:04:04 No: 9962

初心者です。よろしくお願いします。

ActiveCommを使って次のプログラムをかきました。
実行すると
Olestr型からDouble型のバリアント変換はできません
というメッセージがでます。受信する文字はASCII文字です。
どうすれば、string型にへんかんできるでしょうか。

var inputstr:string;
procedure TForm1.Port1AutoInput(ASender: TObject;
  var InputBytes: OleVariant; NumBytes: Integer);
begin
  inputstr:=inputstr+InputBytes;
  Edit1.Text:=inputstr;
end;