BTF VCL SerialPort Demo Error

[Mike Petrichenko]

In serialPort demo application error in procedure:

Code: [Select]

procedure TfmMain.MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Mest be:

Code: [Select]

procedure TfmMain.MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Cmd: string;
begin
  if Key = VK_RETURN then begin
    Cmd := Memo.Lines[Memo.Lines.Count-1] + CRLF;
    BFSerialPortClient.Write(TBFByteArray(Cmd));
  end;
end;