TFontDialog tutorial

For this tutorial we need a memo from standard tab, a button from standard tab and a tfontdialog from Dialogs tab

double click the button and write the following code

procedure TForm1.Button1Click(Sender: TObject);
begin
  if fontdialog1.Execute then
   memo1.Font:=fontdialog1.Font;
end;

now execute the program and click font options button. The following dialog appears

change the options and press ok.

thats all.