Delphi 7-ben hogy tudom a FontDialogot alkalmazni egy Memora?

Volt kis időm leporolni a Delphit, szóval copy/paste:

(van egy gomb, egy fontdialog és egy memo komponens a formon)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

FontDialog1: TFontDialog;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font;

end;

end.