function GetJSON(test: string): string;
var
lHTTP: TIdHTTP;
lParamList: TStringList;
begin
lParamList := TStringList.Create;
lParamList.Add('dummy='+test);
lHTTP := TIdHTTP.Create;
try
Result := lHTTP.Post('http://........./root/demo/GetJSON.php' , lParamList);
finally
lHTTP.Free;
lParamList.Free;
end;
end;