Internet Direct (Indy) Version 9.0.2 Beta
Example 1

  procedure TForm1.TestSendXHDR;
  var
    Client   : TIdNNTP;     // our NNTP client
    Response : TStringList; // Store our results here

  begin
    Response := TStringList.Create;
    Client := TIdNNTP.Create(NIL);

    with Client do
    begin
      Host := 'foo.newsfoo.com'; // This is not a real server change this line
      Port := 119; // This is the default

      try
        Connect; // connect to the server
        if connected then
        begin
          if SelectGroup('some.group.name') then  // This is not a real group
            // essentially gets all articles in the group
            SendXHDR('From','1-',Response);

            SendCmd('quit');
        end;

      finally
        if Connected then
          Disconnect;

        Client.Free;
        // Do something with response
        Response.Clear;
        Response.Free.
      end;
    end;
  end;