测试Delphi语法着色

override
dynamic
virtual
abstract
reintroduce

message

function
procedure
property
read write

    constructor Create(AOwner: TComponent); override;
    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); virtual;
    destructor Destroy; override;

free
FreeAndNil

  TApplication = class(TComponent)
private
  protected
  public
published