function  jiami(s:string):string
type   PWORD=^WORD;
var    Len:integer;
       i:integer;
       v:DWORD;
       P:PChar;
       buffer:string[255];
begin
    buffer:=s;
    Len:=Length(buffer)+1;
    if (Len mod 2)<>0 then  inc(Len);
    if (Len<10) then Len:=10;
    i:=Length(Buffer);
    if i=0 then
       buffer:=inttostr(GetTickCount)
    esle
       while length(buffer)<10 do
          buffer:=buffer+buffer;
     setlength(Buffer,i);?????
     Result:='';
     P:=PChar(@Buffer[0]);???????
     for i:=1 to len div 2 do
     begin
        V:=34567+PWORD(P)^;??????
        P：=P+2;
        Result:=Result+Format('%5.5d',[V]);
     end;
end;
请各位高手以‘s’为参数为例具体跟我讲讲问号处的意思，小弟实在想不明白。。。。谢啦