كيفية استقبال اي اسم تحويله الي الهكس

[x-member]

مرحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة 
 

 
function custom ( const s:string):string;
var i,k : integer;
begin
k := 0;
    for i := 1 to length(s) do
      begin
         k  := k + ord(s[i]);
      end;
      result := result + IntToHex(k,2);
end;

في حدث الضغط على ال Button  : 

edit2.text := custom(edit1.text);