제가 델파이를 잘 몰라서 빌더로 좀 바꾸어 주세요.

부탁드립니다.

procedure Td_webpost.Button2Click(Sender: TObject);
var
    i, postsize     : integer ;
    PData           : String ;

    URL             : WideString ;
    Flags           : Olevariant ;
    TargetFrame     : Olevariant ;
    Headers         : Olevariant ;
    PostData        : Olevariant ;
begin
    { POST 방식으로 가입자 정보 넘김 }
    URL         := 'http://pro.shot.com/jen/htm/result/' ;
    Flags       := 0 ;
    TargetFrame := NULL ;

    pdata       := 'code=h05&userid=&domain=abc.com';
    postsize:= Length(pdata);
    PostData:= VarArrayCreate([0,postsize], varByte);
    for i := 0 to postsize - 1 do begin
        PostData[i]:= Ord(pdata[i+1]);
    end;
    PostData[postsize] := 0;

    Headers     := 'Content-Type: application/x-www-form-urlencoded' + chr($0d) + char($0a) ;
    xWeb.Navigate(URL, Flags, TargetFrame, PostData, Headers);
end;