Возвращение шрифта в программе по кмолчанию

[ALEXandr20333]

В программе создал кнопку и на нее прописал события изменения шрифта в программе на все компаненты
пример

if FontDialog1.Execute then
     Form3.sEdit1.Font.Assign(FontDialog1.Font);
     Form3.sGroupBox1.Font.Assign(FontDialog1.Font);
     Form3.sDBMemo1.Font.Assign(FontDialog1.Font);
     Form3.sDBMemo2.Font.Assign(FontDialog1.Font);

и создал другую кнопку для возвращения шрифта что был установлен по умолчанию но не знаю как прописать события????? НЕ ПОДСКАЖИТЕ??

[ZuBy]

Перед изменением сохрани Font в отдельную переменную и потом её скорми компонентам

[ALEXandr20333]

а по-падробней как это сделать

[Аватар]

Примерно так, при условии, что у всех контролов ParentFont=True

var lFont: TFont;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lFont:=TFont.Create;
  lFont.Assign(Font);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if FontDialog1.Execute then Font.Assign(FontDialog1.Font);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  Font.Assign(lFont);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  lFont.Free;
end;