классы. свойства. read, write

[lowercase]

всем доброго времени суток! решил я создать свой компонент.. а точнее расширить уже сущиствующий..(TLabel); суть моего компонента, TLinkLabel состоит в том чтобы сделать чтото подобное (визуально) ссылкам..
я добавил два новых свойства

eFont: TFont;
lFont: TFont;

первое - параметры шрифта при попадании курсора мышки на объект
второе - при выходе курсора..
пока я создавал наброски расширеного класса, то все нормально было, лейбл создавался цвет, параметры шрифта менялись.. кроче говоря все работало идеально...вот наброски кода:

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TLinkLabel = class(TLabel)
    eFont: TFont;
    lFont: TFont;
    constructor create(ef,lf:TFont);
    procedure TLLMouseEnter(Sender:TObject);
    procedure TLLMouseLeave(Sender:TObject);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
сonstructor TLinkLabel.create(ef,lf:TFont);
begin
  inherited create(nil);
  font := lf;
  eFont := ef;
  lFont := lf;
  onMouseEnter := TLLMouseEnter;
  onMouseLeave := TLLMouseLeave;
end;
procedure TLinkLabel.TLLMouseEnter(Sender: TObject);
begin
  font := eFont;
end;
procedure TLinkLabel.TLLMouseLeave(Sender: TObject);
begin
  font := lFont;
end;
procedure TForm1.Button1Click(Sender: TObject);
var lb:TLinkLabel;
    ef,lf:TFont;
begin
  ef:=TFont.Create;
  lf:=TFont.Create;
  ef.Color := $00FFCC00;
  ef.Style := [fsUnderline];
  lf.Color := $00CCAA00;
  lf.Style := [];
  lb:=TlinkLabel.create(ef,lf);
  lb.Parent := form1;
  lb.Caption := 'TLinkLabel';
  lb.Left := 8;
  lb.Top := 8;
end;

но когда дело дошло до создания отдельного компонента.. вот тут уже я и запутался...
я хочу созать два совойства

  mEnterFont: TFont;
  mLeaveFont: TFont;

.. какие были бы доступны пользователю чтобы тот мог менять параметры шрифта...но почемуто тупо не могу... знаю что делается все через read, и write, надо функции делать с таким же типом результата..

property mLeaveFont: TFont read getMEFont write setMEFont

но вот чтото я туплю и не могу это реализровать.. и к тому же я с этим никогда еще не практиковался толково... только теорию знаю.. но
грош цена тем знаниям, которые не знаешь как применить на практике
пожалуйста помогите реализировать...

[ex.cluz]

Почитайте лучше Архангельского, там принципы создания компонентов подробно освещены и примеры есть.

[_Engine_]

А еще лучше (имхо) почитать Рэй Конопка "Создание оригинальных компонент в среде Delphi"

[artemavd]

А зачем Вы его создаете? Зачем изобретаете велосипед? Такие компоненты уже существуют (RzURLLable например) и все свойства остальные свойства: наведение и т.д. можно программно менять через свойства.

[ex.cluz]

artemavd, человек, может, сам научиться хочет? Чтож его от этого отговаривать?
А готовых компонентов куча целая, это так. Но чтобы добавить/изменить свойства у уже скаченного компонента уметь же надо. Вот пусть товарищ литературу почитает на эту тему.

[lowercase]

вродебы уже понял как надо сделать.. буду пытатся сделать...
p.s. спасибо за литературу)

[ex.cluz]

Будут конкретные вопросы - обращайтесь