MathgeomGLS

1
unit about;
2

3
interface
4

5
uses Winapi.Windows, System.Classes, Vcl.Graphics, Vcl.Forms, Vcl.Controls,
6
  Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
7

8
type
9
  TAboutBox = class(TForm)
10
    Panel1: TPanel;
11
    OKButton: TButton;
12
    ProgramIcon: TImage;
13
    ProductName: TLabel;
14
    Version: TLabel;
15
    Copyright: TLabel;
16
    Comments: TLabel;
17
  private
18
     
19
  public
20
     
21
  end;
22

23
var
24
  AboutBox: TAboutBox;
25

26
implementation
27

28
{$R *.dfm}
29

30
end.
31
 
32