Copyright Label komponens készítése

procedure TCopyrightLabel.SetCompany(const Value: string);
begin
  FCompany := Value;
  SetCapt;
end;

procedure TCopyrightLabel.SetCopyright(const Value: string);
begin
  FCopyright := Value;
  SetCapt;
end;

procedure TCopyrightLabel.SetCapt;
var
  y, m, d: word;
begin
  DecodeDate(Now, y, m, d);
  Caption:=FCopyright + ' © ' + IntToStr(y) + ' ' + FCompany;
end;