Wegen TFontDialog das TFont Objekt Klonen

[DeddyH]

Hast Du evtl. zu wenig Assigned?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FD.Font.Assign(Font1);
  if FD.Execute then
    Font1.Assign(FD.Font);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FD.Font.Assign(Font2);
  if FD.Execute then
    Font2.Assign(FD.Font);
end;

Geht bei mir einwandfrei.