Данные с Весов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AfPortControls, AfComPort,
  AfViewers, AfDataTerminal, ExtCtrls,strutils, CPort, CPortCtl,
  AfDataDispatcher;
 
type
  TForm1 = class(TForm)
    AfComPort1: TAfComPort;
    AfPortComboBox1: TAfPortComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    AfDataDispatcher2: TAfDataDispatcher;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure AfComPort1DataRecived(Sender: TObject; Count: Integer);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ReadBuffer: array[0..256] of byte;
  CurrentPos: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
AfComport1.Open;
showMessage ('Порт открыт');
end;
 //ЗАКРЫТЬ ПОРТ
procedure TForm1.Button2Click(Sender: TObject);
begin
AfComport1.close;
showMessage ('Порт закрыт');
end;
//ОТПРАВЛЯЮ БАЙТ
procedure TForm1.Button3Click(Sender: TObject);
var
str:byte;
begin
Str:=$45;
afcomport1.WriteData((str),(1));
 
End;
 
 
//ЧИТАЮ И ВЫВОЖУ В ШЕСТНАДЦАТИРИЧНОМ ВИДЕ В ЕДИТЫ
procedure TForm1.AfComPort1DataRecived(Sender: TObject; Count: Integer);
begin
AfComPort1.ReadData(ReadBuffer, Count);
Edit3.Text:= IntTohex(ReadBuffer[0],2);
Edit4.Text:= IntTohex(ReadBuffer[1],2);
Edit5.Text:= IntTohex(ReadBuffer[2],2);
Edit6.Text:= IntTohex(ReadBuffer[3],2);
Edit7.Text:= IntTohex(ReadBuffer[15],2);
Edit1.Text:=(Edit4.Text+Edit3.Text{+Edit5.Text+Edit6.Text+Edit7.Text});
end;
 
// ПЫТАЮСЬ ПЕРЕВЕСТИ В ДЕСЯТИРИЧНЫЙ - ТУТ ПРОБЛЕМА??????
procedure TForm1.Button4Click(Sender: TObject);
var
qwe:integer;
begin
qwe:= strtoint('$'+Edit1.Text);
edit2.Text:=inttostr(qwe);
end;
 
end.