TccHTTPRequest.GetHeaderList

List := TStringList.Create;
try
  HTTP.Request.GetHeaderList(List);
  for i:=0 to List.Count-1 do
  begin
    ShowMessage(HTTP.Request.Header[List.Strings[i]]);
  end;
finally
  List.Free;
end;