delphi IdTCPClient1 Web Relay

uses

  IdCoder, IdCoder3to4, IdCoderMIME;

procedure TForm1.Button1Click(Sender: TObject);

var

  Response: string;

begin

  Memo1.Lines.Clear;

  try

    IdTCPClient1.Host := '144.129.139.172';

    IdTCPClient1.Port := 80;

    IdTCPClient1.Connect;

    try

      with IdTCPClient1.IOHandler do

      begin

        WriteLn('GET /state.xml HTTP/1.0');

        WriteLn('Host: ' + IdTCPClient1.Host);

        WriteLn('Accept: */*');

        WriteLn('User-Agent: ...');

        WriteLn('Authorization: Basic ' + TIdEncoderMIME.EncodeString('admin:webrelay'));

        WriteLn;

        Response := AllData;

      end;

    finally

      IdTCPClient1.Disconnect;

    end;

    Memo1.Lines.Add(Response);

  except

    on E: Exception do

      Memo2.Lines.Add(E.Message);

  end;

end;