ArenaZ

1
unit uHelpCommandsForm;
2

3
{$mode objfpc}{$H+}
4

5
interface
6

7
uses
8
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
9

10
type
11

12
  { THelpCommandsForm }
13

14
  THelpCommandsForm = class(TForm)
15
    btnClose: TButton;
16
    Memo1: TMemo;
17
    procedure btnCloseClick(Sender: TObject);
18
  private
19

20
  public
21

22
  end;
23

24
var
25
  HelpCommandsForm: THelpCommandsForm;
26

27
implementation
28

29
{$R *.lfm}
30

31
{ THelpCommandsForm }
32

33
procedure THelpCommandsForm.btnCloseClick(Sender: TObject);
34
begin
35
  Close;
36
end;
37

38
end.
39

40