подскажите как разобратся с написанием события для компонента

unit Unit2;
 
interface
 
uses
  SysUtils, Classes;
 
type
  massiv = array of integer;
 
  TSpisok = class(TComponent)
  private
    Fmas: massiv;
    FCount: integer;
 
    procedure Setwrite(a: integer);
  protected
 
  public
    function FindMin : integer;
 
  published
    property Count: integer read FCount write Setwrite;
    property Mas: massiv read Fmas write Fmas;
  end;
 
implementation
 
  procedure TSpisok.Setwrite(a: integer);
  var
    i: integer;
  begin
  randomize;
  fcount:=a;
  setlength(Fmas, a);
  for i:=0 to a-1 do
    Fmas[i]:=random(100);
  end;
 
  function TSpisok.FindMin: integer;
  var
    i: integer;
  begin
  result:=Fmas[0];
  for i:=0 to Fcount do
    if Fmas[i]<result then
      result:=Fmas[i];
  end;
 
end.