В предложенном вами вариантом лучше еще добавить объект ну и получится примерно так:
Код:
procedure ConFontStyle(Bold,Italic,Underline,StrikeOut: Boolean;OBJ:TObject);
begin
if Bold then
(OBJ as TMemo).Font.Style:=(OBJ as TMemo).Font.Style+[fsBold];
end;
Надеюсь, дальше сами разберетесь.