Run Time

Criar uma classe

type

  Nome do Componente = class(TComponent);

  private

    {Private Declarations}

  protected

    {Protected Declarations}

  public

    {Public Declarations}

  published

   property Nome da Propriedade: Boolean,integer,string,etc...; 

end;