I really love the "name spaces" you can create with records and constants.

I really love the "name spaces" you can create with records and constants.

type
mime = record
public const
ApplicationJson = string('application/json');
TextHTML = string('text/html');
end;

...

Response.ContentType := mime.TextHTML;