[Decoding]

Если я правильно понял твою глубокую мысль, то попробуй так

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  Long = 3;
var
  f: File of byte;
  _Ti, _To: array of byte;
  i: integer;
begin
   SetLength( _Ti, Long );
   FillChar( _Ti, Long, 0 );
   SetLength( _To, Long );
   FillChar( _To, Long, 0 );
   _To[0] := $FF;
   _To[1] := $AA;
   _To[2] := $54;
   AssignFile( F, 'c:\92.bin' );
   Rewrite( F );
   BlockWrite( F, _To[0], Length( _To ) );
   CloseFile( F );
   Reset( F );
   BlockRead( F, _Ti[0], Length( _Ti ) );
   CloseFile( F );
   Label1.Caption := '';
   Label2.Caption := '';
   for i := 0 to Long-1 do
   begin
      Label1.Caption := Label1.Caption + IntToStr( _To[i] ) + '; ';
      Label2.Caption := Label2.Caption + IntToStr( _Ti[i] ) + '; ';
   end;
end;