Name,Str:String;
Len:Integer;
begin
If Edit1.Text = '' Then begin Edit2.Text:='Enter your Name';
Exit;   End;
Name:= TrimLeft(edit1.Text);
Str := '7703615';
       ASM
       PUSHAD
       MOV EDX,Name   //DWORD PTR SS:[ESP+0C8h] ; name
       XOR ESI,ESI
       XOR EAX,EAX
       MOV ECX,DWORD PTR DS:[EDX-4]// To Get Length Name --
       TEST ECX,ECX
       JLE @ezWebMon_00405C15
@ezWebMon_00405C0A:
       MOVSX EDI,BYTE PTR DS:[EAX+EDX]
       ADD ESI,EDI         //  To Get Ord Name
       INC EAX
       CMP EAX,ECX
       JL @ezWebMon_00405C0A
       ADD ESI,02710h    // Ord Name + $2710   --
       MOV LEN,ESI
@ezWebMon_00405C15:
       POPAD
       End;
Edit2.Text:= Str + '-' + Format ('%u',[Len]);