Procedure PageBuilder;
begin
List := TStringList.Create;
try
List.NameValueSeparator := ':';
List.Text := ccHTTPRequestHandler.RawHeaders;
for i:=0 to List.Count-1 do
begin
ccScriptEngine.Log(ccLog_Info,List.Strings[i]);
end;
finally
List.Free;
end;
end;