mgpk-politex-zadania

1
unit Unit1;
2

3
interface
4

5
uses
6
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;
8

9
type
10
  TForm1 = class(TForm)
11
    Label1: TLabel;
12
    Button1: TButton;
13
    Button2: TButton;
14
    procedure Button1Click(Sender: TObject);
15
    procedure Button2Click(Sender: TObject);
16
  private
17
    { Private declarations }
18
  public
19
    { Public declarations }
20
  end;
21

22
var
23
  Form1: TForm1;
24

25
implementation
26

27
{$R *.dfm}
28

29
uses Unit2;
30

31
procedure TForm1.Button1Click(Sender: TObject);
32
begin
33
 Close();
34
end;
35

36
procedure TForm1.Button2Click(Sender: TObject);
37
begin
38
 Form2.Show;
39
end;
40

41
end.
42