Checkbox i bold

Ajk zrobić checkboxa który po zaznaczeniu będzie pogrubiał cały text w memeo a po odznaczeniu będzie zmieniał go do normalnej postaci.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

if checkbox1.checked = true then
begin
memo1.font.style := [fsBold];
end else
begin
memo1.font.style := [];
end;
:-)

mozna tez zrobic tak:

if CheckBox1.Checked then
Memo1.Font.Style := Memo1.Font.Style + [fsBold]
else
Memo1.Font.Style := Memo1.Font.Style - [fsBold];---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Lepsze jest LKS-a Dzięki--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.