unit Label1;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;

type
  TRandom = class(TLabel)
  private
  Fmin: Integer ;
  Fmax : integer;
  fgetMax : TNotifyEvent;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property min : Integer read Fmin Write Fmin;
    property max : Integer read Fmax write Fmax;
    property GetMax:TNotifyEvent read FgetMax write FGetMax;

  end;

procedure Register;