كيف اضافة ملف hex دخل اداة memo - نسخة قابلة للطباعة

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  S:string;
  M:TMemoryStream;
begin
if OPENDIALOG1.Execute then
 begin
   M:=TMemoryStream.Create();
   try
     M.LoadFromFile(opendialog1.Filename);
     Setlength(S,M.Size*2);
     BinToHex(PAnsichar(M.Memory),PWidechar(S),M.Size);
     memo1.Lines.Text := S;
   finally
      M.Free;
   end;

end;
end;

كود :

function HexToArray(const AHexStr:string):TBytes; // convert Hex to Binary data
var
  I, LenB: Integer;
  sStr:string;
begin
    Result :=nil;
    sStr :='';
    for I := 1 to Length(AHexStr) do  // delete any white character to pack hex txt
    begin                             // E4 56 77 .. => E45677
        if AHexStr[I] > ' '  then
          sStr := sStr + AHexStr[I];
    end;

   if Odd(Length(sStr)) then // Length of sStr must be even
      raise Exception.Create('Text Hex invalide :'+ AHexStr );

   LenB := Length(sStr) div 2;// binary length is half of Hex string
   Setlength(Result,LenB); // new binary buffer
   HexToBin(PWideChar(sStr),PAnsiChar(Result),LenB);// convert hex to bin
end;

function TForm1.BinFind(const Arr: array of byte; AStart:integer):integer;
var
  I,LenB : Integer;
begin
  Result := -1;
  LenB :=Length(Arr);
  if LenB = 0 then
     Exit;
  for I := AStart to MStream.Size-LenB do
  begin
    if (MStream.Bytes[I] = Arr[0]) then //Compare first char if matched compare the rest by CompareMem
      if CompareMem(@Arr[0],@MStream.Bytes[I],LenB) then
         Exit(I);   // return found position
  end;
end;

function TForm1.ReplaceHex(const AHex,AHexRep:string;ReplaceAll:boolean;AStart:integer):integer;
var
  Bin,Rep:TBytes;
  Pz:integer;
begin
   Bin:= HexToArray(AHex);
   Rep:= HexToArray(AHexRep);
   if Length(Bin)<> Length(Rep) then
      raise Exception.Createfmt('Donnée de longueur différente "%s" "%s"',[AHex,AHexRep]);
   if ReplaceAll  then
      AStart :=0;
   Pz:=AStart;
   Result := 0;
   repeat
      Pz:=BinFind(Bin, Pz);
      if Pz <>-1 then // remplacer
      begin
        Move(Rep[0],MStream.Bytes[Pz],Length(Rep));
        Pz := Pz + Length(Bin);
        inc(Result);
      end;
   until not ReplaceAll or ( Pz = -1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ReplaceHex('3D1020','FDCD10');
    ReplaceHex('3E1020','FECD10');
    ReplaceHex('3F1020','FFCD10');
    ReplaceHex('3C1020','FCCD10');
    ReplaceHex('3D1020','FDCD10');
end;