procedure TForm1.HTTP1Click(Sender: TObject);
var
lParamList : TStringList;
     iCode : Integer;
begin
 lParamList := TStringList.Create;
 lParamList.Add('HTTP/1.1');
  try
   try
    idHTTP2.Response.Clear;
    idHTTP2.Post(shost+'/gateway_pocsag_alpha.php?line=1164001;9', lParamList);
   except
     on E: EIdHTTPProtocolException do
        iCode := idHTTP2.ResponseCode;
   end;
     Showmessage(IntToStr(iCode));
    finally
     lParamList.Free;
 end;
end;