Uses
Forms,
........
implementation
{$R *.dfm}
procedure TForm1.Btn_1Click(Sender: TObject);
begin
Mmo_1.Clear;
Mmo_1.Lines := Screen.Fonts;
end;
Uses
Forms,
........
implementation
{$R *.dfm}
procedure TForm1.Btn_1Click(Sender: TObject);
begin
Mmo_1.Clear;
Mmo_1.Lines := Screen.Fonts;
end;