Refactoring #1

refactoring_001.pas

// Improving the reading and understanding of your code

{ Before }

Utils = class
public
    class property MessageUtils: TMessageUtils read FMessageUtils;

TMessageUtils = class
public
    class procedure ShowWarning(const message: string);
    class procedure ShowError(const message: string);

// using

Utils.MessageUtils.ShowWarning('Hello World!');  // ugly


{ After }

Utils = class
public
    class property ShowMessage: TMessageUtils read FShowMessage;

TMessageUtils = class
public
    class procedure Warning(const message: string);
    class procedure Error(const message: string);

// using

Utils.ShowMessage.Warning('Hello World!');  // cool