Delphi и сканер

function readcom: string;
var RX_Count : cardinal;
    TempArray: array[1..255] of Byte;
    Count    : Integer;
begin
 result:= '';
 ReadFile(Com, TempArray, 255, RX_Count, nil);
 for Count:= 1 to RX_Count do result:= result + Chr(TempArray[Count])
end;

uses bcports;
 
type
   TF = class
    protected
     constructor Create;
     destructor Destroy;
     
     procedure rec(Sender: TObject; count: integer);
   end;
   
var com: TBComPort;
     tt: tf;
 
 
procedure tf.rec(Sender: TObject; count: integer);
var buf: array[0..255] of byte;
    i  : longword;
    crc: word;
begin
 com.Read(buf, count);
 ...
 
end;
 
 
constructor TF.Create;
begin
 inherited Create;
 //
 com:= TBComPort.Create(nil);
 com.SyncMethod:= smNone;
 com.OnRxChar  := rec;
 com.BaudRate  := br9600;
 com.ByteSize  := bs8;
 com.Parity    := paNone;
 com.StopBits  := sb1;
 com.InBufSize := 1024;
 com.OutBufSize:= 8;
end;
 
destructor TF.Destroy;
begin
 inherited;
 
end;
 
function reinit(comnum: byte; enable: boolean): boolean;
var temp: string;
    num: byte;
    p: boolean;
begin
 if assigned(tt) then tt.destroy;
 freeandnil(com);
 
 if enable then begin // динамическое создание
  tt:= tf.Create;
  
  // fix
  num:= comnum;
  if num = 0 then num:= 1;
  if num < 9 then temp:= 'COM' + inttostr(num)
   else temp:= '\\\\.\\' + 'COM' + inttostr(num);
  com.Port:= temp;
  try
   p:= com.Open;
  except com.Close; end;
 end;
 
 result:= p;
end;