font im memo?

[tom_po]

wie kann ich eine memo mit meiner font-komponente definieren?

benutze diesen Code, aber ohne Erfolg:

Delphi-Quellcode:

procedure Takn.Label5Click(Sender: TObject);
var i: integer;
begin
fontdialog1.Execute;
FontDialog1.Font := memo1.Font;
  for i := 0 to (memo1.ControlCount - 1) do
    if (memo1.Controls[i] is TButton) then
      (memo1.Controls[i] as TButton).Font :=
        FontDialog1.Font
end;

danach benutze ich eine tnpdf-komponente zur Darstellung im pdf-format. Aber der Font ändert sich nicht, wie definiert!!