type
  ...
  TComponent1 = class(TComponent)
  private
    ...
    procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
    ...
  end;

procedure TComponent1.CMTextChanged(var Message:TMessage);
begin
  ...
end;
procedure TComponent1.CMFontChanged(var Message:TMessage);
begin
  ...
end;