1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  bla: TextFile;
  Test: ShortString;
begin
 AssignFile(bla, dateiname);
 FileMode := fmOpenRead;
 Reset(bla);
 Readln(bla,Test);
 Memo2.Lines.Add('Test');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormCreate(Sender: TObject);
var
  fileData: TStringList;
begin
  fileData := TStringList.Create;
  fileData.LoadFromFile(dateiname);
  for i:=1 to AnzahlDerTeams do
    (FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=StrToInt(fileData[i-1]);
end;					

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

procedure TForm1.FormCreate(Sender: TObject);  
var  
  fileData: TStringList;  
begin  
  fileData := TStringList.Create;  
  try
    fileData.LoadFromFile(dateiname);  
    for i:=1 to AnzahlDerTeams do  
      (FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=StrToInt(fileData[i-1]);  
  finally
    fileData.Free;
  end;
end;