delphi idhttp post

const
 sposturl='http://lede100.wicp.net:9600/mybs/bs/testpost.php';
procedure TForm1.Button3Click(Sender: TObject);
var
postcmd:TStringList;
http:TIdHTTP;
begin
     http:=   TIdHTTP.Create(Application);
    try
      postcmd:=TStringList.Create;
    postcmd.Add('autoget=1');
    postcmd.Add('logintype=0');
     Memo1.Text:=http.Post(sposturl,postcmd) ;
    finally


     FreeAndNil(http);
    end;






end;