procedure TForm1.Button1Click(Sender: TObject);
var
sData : string;
Datax : TStringStream;
begin
Datax := TStringStream.Create('');
sData :='a=55';
httpcli1.Proxy:='127.0.0.1' ;
httpcli1.ProxyPort:='81';
HttpCli1.SendStream := TMemoryStream.Create;
HttpCli1.SendStream.Write(sData[1], Length(sData));
HttpCli1.SendStream.Seek(0, 0);
httpcli1.RcvdStream := Datax;
HttpCli1.URL :='http://ima.com/index.php';
HttpCli1.Post;
dounl:=Datax.DataString;
HttpCli1.RcvdStream.Free;
HttpCli1.RcvdStream := nil;
HttpCli1.Free;
ShowMessage(dounl);
end;