ПРОФА над чаром

[TAMBIK]

Здравствуйте помогите переделать скрипт чтобы над чаром писалась его профа .Сам скрипт:
№ 1

var
m:TMemo;
frm:TForm;
ClassID, i,j,k, ms,ps,mc,cc: Integer;
Message, Name, Class,t: String;
//......................................
//***************************************************************
procedure Init;
begin
//ShowTab;
  frm := TForm.Create(nil);
  frm.Caption := 'Char Info!';
  frm.BorderStyle := bsSizeable;
  frm.Position := poScreenCenter;
  frm.Width:=320;
  frm.Height:=600; 
  m:=TMemo.Create(frm);
  m.parent:=frm;
  m.align:=alClient;
  m.ReadOnly:=true;
  m.ScrollBars:=ssBoth;
  frm.Show;
end;
//......................................
//***************************************************************
procedure Free;
begin
  m.Free;
  frm.Free;
  //HideTab;
end;
begin
  if FromServer and (pck[1]=#$03) then begin
{CharInfo:
22=s(Name)
i=i+116
i=d(MSpeed)
i=d(PSpeed)
i=i+84
i=s(Title)
i=i+27
i=h(cubics:For.0001)
i=i+cubics*2
i=i+8
i=d(classID:Get.ClassID)
i=d(maxCP)
i=d(curCP)
}
    i:=22;
    Name:=ReadS(i);
    i:=i+116;
    ms:=readD(i);
    ps:=readD(i);
    i:=i+84;
    j:=i;
    t:=reads(i);
    k:=i;
    i:=i+27;
    mc:=ReadH(i);
    i:=i+mc*2+8;
    classid:=readD(i);
    mc:=readD(i);
    cc:=readD(i);

    case ClassID of
      88:class:='hDT';
      89:class:='hDN';
      90:class:='hPhK';
      91:class:='hHK';
      93:class:='hAD';
      92:class:='hSG';
      94:class:='hAM';
      95:class:='hST';
      96:class:='hAL';
      97:class:='hCD';
      98:class:='hHPh';
      99:class:='eET';
      101:class:='eWR';
      102:class:='eMlS';
      103:class:='eMM';
      104:class:='eEM';
      105:class:='eEvS';
      33:class:='dShK';
      106:class:='dShT';
      107:class:='dSD';
      108:class:='dGH';
      37:class:='dPhR';
      109:class:='dGS';
      110:class:='dStS';
      111:class:='dSM';
      112:class:='dShS';
      113:class:='oTitan';
      114:class:='oGK';
      115:class:='oDM';
      116:class:='oDC';
      117:class:='gFS';
      118:class:='gMO';
    end;
    m.Lines.Add(Name+': "'+t+'" '+class+', cp:'+inttostr(ms)+'/'+inttostr(ps)+', cp:'+inttostr(mc)+'/'+inttostr(cc));
    Message:=class+'='+inttostr(ms)+'/'+inttostr(ps);
      buf:=copy(pck,1,j-1);
      WriteS(Message);
      j:=length(buf);
      buf:=buf+copy(pck,k,length(pck)-k+1);
      pck:='';
      SendToClient;
  end;
end.