with TFontDialog.Create(nil) do

  

begin

    

Font := Memo1

.

Font;

    

Options := [fdApplyButton] - [fdEffects];

    

if 

Execute() 

then

      

Memo1

.

Font := Font;

  

end

;

 

原文：