Reference THttpResponseHeader

  THttpResponseHeader = record
  public
    { Response code such as 200 }
    Code: Integer;
    { Response status such as OK }
    Status: string;
    { Response key values }
    Keys: TNamedStrings;
    { Response raw header text }
    RawHeader: string;
    { When Valid is true a complete header was processed from extract }
    Valid: Boolean;
    { Clears all component values }
    procedure Clear;
    { Attempt to parse an incoming response buffer }
    function Extract(var Buffer: string): Boolean;
  end;