Перевод из текста в hex и обратно

unit Unit1;
 
interface
 
uses
  SysUtils, Classes, Controls, Forms, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    btn2: TButton;
    edt3: TEdit;
    function StrToHex(source: string): string;
    function HexToStr(hex: string): string;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{функция преоброзования строки -> HEX }
function TForm1.StrToHex(source: string): string;
var
  i: Integer;
  c: Char;
  s: string;
begin
  s := '';
  for i:=1 to Length(source) do begin
    c := source[i];
    s := s +  IntToHex(Integer(c), 2) + ' ';
  end;
  result := s;
end;
 
{функция преоброзования HEX -> строка}
function TForm1.HexToStr(hex: string): string;
var
  i: Integer;
begin
  hex:= StringReplace(hex, ' ', '', [rfReplaceAll]);
  for i:= 1 to Length(hex) div 2 do
    Result:= Result + Char(StrToInt('$' + Copy(hex, (i-1) * 2 + 1, 2)));
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  edt2.Text := StrToHex(edt1.Text);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
  edt3.Text:= HexToStr(edt2.Text);
end;
 
end.

procedure tform1.button1click(sender: tobject);
var
strsource,strdest:string;
i:integer;
tmp:widestring;
begin
strsource := memo1.text;
tmp:=strsource;
strdest:='';
for i:=1 to length(tmp) do
strdest:=strdest+'<'+inttohex(integer(tmp[i]),4)+'>';
memo2.text := strdest;
end;

function hexTOunicode (source:string):string;
var S,unicod: string;
t: Integer;
begin
unicod:='';
with TStringList.Create do
try
   Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);
   S := '';
   for t := 0 to Count - 1 do
     S := S + Chr(StrToInt('$' + Strings[t]));
   unicod:=unicod+s;
finally
   Free;
end;
 Result:=unicod;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var text:string;
begin
 strsource := memo2.text;
 tmp:=strsource;
 strdest:='';
 for i:=0 to (length(tmp) div 6)-1 do
 text:=hexTOunicode(copy(tmp,(2+i*6),4));
 
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
strsource,strdest:string;
i:integer;
tmp:widestring;
begin
strsource := Edit1.Text;
tmp:=strsource;
strdest:='';
for i:=1 to length(tmp) do
strdest:=strdest+''+inttohex(integer(tmp[i]),4)+' ';
Edit2.text := strdest;
end;
 
end.