1 files changed, 0 insertions, 89 deletions
diff --git a/tools/langpackmgr/Unit2.pas b/tools/langpackmgr/Unit2.pas
deleted file mode 100644
index b71163e1aa..0000000000
--- a/tools/langpackmgr/Unit2.pas
+++ /dev/null
@@ -1,89 +0,0 @@
-unit Unit2;
-
-interface
-
-uses
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.CheckLst, unit1;
-
-type
-  TForm2 = class(TForm)
-    ComboBox1: TComboBox;
-    CheckBox1: TCheckBox;
-    Button1: TButton;
-    Label1: TLabel;
-    Label2: TLabel;
-    Button2: TButton;
-    ComboBox2: TComboBox;
-    procedure Button1Click(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-    procedure ComboBox1Change(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  Form2: TForm2;
-  n:integer;
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.Button1Click(Sender: TObject);
-begin
-form1.caption:=ComboBox1.text;
-form1.RadioGroup1.Items.Add('english');
-if combobox2.text<>'' then
-form1.RadioGroup1.Items.Add(combobox2.text);
-form1.RadioGroup1.ItemIndex:=0;
-form1.showmodal;
-form2.Close;
-end;
-
-procedure TForm2.Button2Click(Sender: TObject);
-begin
-form2.Close;
-end;
-
-procedure TForm2.ComboBox1Change(Sender: TObject);
-var   i:integer;
-begin
-   combobox2.Items.Clear;
-  for i :=0 to combobox1.ItemHeight+5 do    // не понял зачем +5
-    if i<>combobox1.ItemIndex then
-      combobox2.Items.Add(combobox1.Items[i]);
- button1.Enabled:=true;
-end;
-
-procedure TForm2.FormCreate(Sender: TObject);
-var
-  SR:TSearchRec;
-  Res:Integer;
-begin
-
-Res:=FindFirst(ExtractFilePath(Application.ExeName)+'*', faAnyFile, SR);
-while Res = 0 do
-begin
-if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then
-begin
-Res:=FindNext(SR);
-Continue;
-end;
-if ((SR.Attr and faDirectory)=faDirectory) then
-begin
-if (fileexists(ExtractFilePath(Application.ExeName)+'/'+SR.Name+'/=HEAD=.txt'))
-and (sr.Name<>'english') then
-begin
-Form2.combobox1.Items.Add(SR.Name);
-
-end;
-end;
-Res:=FindNext(SR);
-end;
-FindClose(SR);
-end;
-
-end.