unit Unit1;

interface

uses
  Windows, Controls, StdCtrls, Classes, SysUtils,   Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    CNew: TButton;
    AComboBox1: TComboBox;
    CSample: TLabel;
    TSample: TEdit;
    CButton1: TButton;
    CButton2: TButton;
    CButton3: TButton;
    CheckBox1: TCheckBox;
    procedure CNewClick(Sender: TObject);
    procedure AComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:TStringList;
implementation

{$R *.dfm}
function lang(k:string):string;
begin
lang:=copy(k,pos('=',k)+1,length(k)-pos(k,'='));
end;

procedure TForm1.CNewClick(Sender: TObject);
var
b:byte;
begin
f:=TStringList.Create;
for b:=0 to Form1.ComponentCount-1 do
begin
f.Add(Form1.Components[b].Name+'=')
end;
f.SaveToFile('NewLang.ini');
end;

procedure TForm1.AComboBox1Change(Sender: TObject);
var
b:byte;
CompType:char;
begin
f:=TStringList.Create;
f.LoadFromFile(AComboBox1.Text+'.ini');
for b:=0 to f.Count-1 do
begin
CompType:=copy(f.Strings[b],1,1)[1];
if CompType='C' then
TCheckBox(Form1.Components[b]).Caption:=lang(f.Strings[b])
else
if CompType='T'  then
TEdit(Form1.Components[b]).Text:=lang(f.Strings[b])
end;
end;

end.