Функция получения параметров с устройства

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
  Stat: PAsync;
  N: Integer;
begin
  InitAsync(Stat);
  try
    BComPort1.ReadStrAsync(Str, Count, Stat);
    repeat
      // Выполнение других действий
    until BComPort1.IsAsyncCompleted(Stat);
    N := BComPort1.WaitForAsync(Stat);
    if N <> Count then SetLength(Str, Count);
  finally
    DoneAsync(Stat);
  end;
  // Действия с переменной Str
end;

function LoadData(addr: string): Double;
var
 crcc,crc,adrwr  : word;
 i,Count     : integer;
 s ,Str1,StrIN    : string;
 bufcrc: array [1..8] of Byte;
 bufIn: array [1..8] of Byte;
begin
 
 buf[0]:= $EE;
 buf[1]:= $00;     
 buf[2]:= $00;     
 buf[3]:= $00;     
 buf[4]:= $01;     // - адрес контроллера
 
 buf[5]:= Trunc(edtCmd.Value);     // - команда
 adrwr:= StrToInt('$'+(addr));
 buf[6]:= HI(adrwr);      // - адрес чтения
 buf[7]:= LO(adrwr);      
 buf[8]:= Trunc(edtCmd.Value);       
 
 for I := 1 to 8 do
 bufcrc[i]:= buf[i];
 crcc:= CRCPascal(bufcrc,8);    // crc
 buf[9]:= lo(crcc); // мл. байт crc
 buf[10]:= hi(crcc);    // ст. байт crc
 BComPort1.Write(buf,11);
 Sleep(500);
 BComPort1.Read(bufIn,Count);
  for I := 0 to Count-1 do begin
  StrIN:= StrIN + ByteToStr(bufIn[i])
  end;
  Mlog.Lines.Add('Tx : '+StrIN);
  for I := 1 to 4 do
  Str1:= Str1 + ByteToStr(bufIn[i]);
  Result:=HexToIEEE754(Str1); 
end;

function TBComPort.Read(var Buffer; Count: Integer): Integer;
var
  AsyncPtr: PAsync;
begin
  InitAsync(AsyncPtr);
  try
    ReadAsync(Buffer, Count, AsyncPtr);
    Result := WaitForAsync(AsyncPtr);
  finally
    DoneAsync(AsyncPtr);
  end;
end;

function TBComPort.ReadAsync(var Buffer; Count: Integer; var AsyncPtr: PAsync): Integer;
var
  Success: Boolean;
  BytesTrans: DWORD;
begin
  if AsyncPtr = nil then
    raise EComPort.Create(CEMess[5]);
  AsyncPtr^.Kind := okRead;
  Success := ReadFile(FHandle, Buffer, Count, BytesTrans, @AsyncPtr^.Overlapped)
    or (GetLastError = ERROR_IO_PENDING);
  if not Success then
    raise EComPort.Create(CEMess[4]);
  Result := BytesTrans;
end;