I wrote these two functions for idhttp for easy usage.

httputil.pas

unit httpUtil;

interface

uses Classes, SysUtils, IdHTTP;

type
  THTTP_STATUS = Cardinal;

function DownloadToStream(AURL: String; AStream: TStream): THTTP_STATUS;
function HTTPGet(AURL: String): string; overload;
function HTTPGet(AURL: String; const Encoding: TEncoding): string; overload;

implementation

function HTTPGet(AURL: String): string; overload;
begin
  Result := HTTPGet(AURL, TEncoding.Default);
end;

function HTTPGet(AURL: String; const Encoding: TEncoding): string; overload;
var
  text: TMemoryStream;
  strings: TStrings;
begin
  with TIdHTTP.Create(nil) do
  begin
    try
      text := TMemoryStream.Create;
      try
        try
          Get(AURL, text);
        except

        end;
        if ResponseCode=200 then
        begin
          strings := TStringList.Create;
          text.Seek(0, 0);
          strings.LoadFromStream(text, Encoding);
          Result := strings.Text;
          strings.Free;
        end
        else
          Result := '';
      finally
        text.Free;
      end;
    finally
      Free;
    end;
  end;
end;

function DownloadToStream(AURL: String; AStream: TStream): THTTP_STATUS;
begin
  with TIdHTTP.Create(nil) do
  begin
    try
      Get(AURL, AStream);
      Result := ResponseCode;
    finally
      Free;
    end;
  end;
end;

end.

Hi mmp112, what is your code, what exact error do you get?