1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure Tfrm_Main.FormCreate(Sender: TObject);
...
  SelectLanguage();
...
end;

procedure Tfrm_Main.SelectLanguage();
var
  ini:TINIFILE;
  IniFile:String;
begin
  with OpenDialog1 do
  begin
    InitialDir:=ExtractFilePath(ParamStr(0));
    try
      IniFile:=(ExtractFilePath(ParamStr(0))+'inifile.ini');
      INI:=TINIFile.Create(IniFile);
      if Execute then
        INI.WriteString('Settings','LangFile',Filename)
      else
        INI.WriteString('Settings','LangFile',ExtractFilePath(ParamStr(0))+'Wert')
    finally
      INI.Free;
    end; // try
  end; // with
end;					

1:
2:
3:
4:
5:

if OpenDialog1.Execute then
begin
  ...;
  ...;
end;