1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  i: integer;
begin
  try
    Ini:=TIniFile.Create('C:\Dokumente und Einstellungen\DDenker\Eigene Dateien\niv Neocron Item Verwalter\weapons.ini');
    for i := 1 to 50 do
    begin
      TLabel(FindComponent('Label' + IntToStr(I))).caption:=Ini.ReadString('a'+inttostr(i),'Name','Fehler') ;
      TLabel(FindComponent('Label' + IntToStr(I))).hint:=Ini.ReadString('a'+inttostr(i),'Anf','Fehler') ;
    end;
  finally
  Ini.Free;
  end;
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  i: integer;
  xlabel:TLabel;
begin
  try
    Ini:=TIniFile.Create('C:\Dokumente und Einstellungen\DDenker\Eigene Dateien\niv Neocron Item Verwalter\weapons.ini');
    for i := 1 to 50 do
    begin
      xlabel:=TLabel(FindComponent('Label' + IntToStr(I)));
      if NOT (xlabel=nil) then 
      begin 
        xlabel.caption:=Ini.ReadString('a'+inttostr(i),'Name','Fehler') ;
        xlabel.hint:=Ini.ReadString('a'+inttostr(i),'Anf','Fehler') ;
      end;
    end;
  finally
    Ini.Free;
  end;
end;