Listenindex überschreitet Maximum

[unskilled]

mein lieber scholli

mit hilfe hätte ich gerechnet, aber dass es nach 2 minuten schon soweit sein würde ..

dankeschön euch allen

war ausserdem noch nen anderer fehler drin is mir gerade aufgefallen

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);

var List: TStrings;
var w,q :integer;
var name: string;
begin
name:=(edit25.Text);
List := TStringList.Create;
try
List.LoadFromFile('C:\'+name+'.txt');
if List.Count>0 then                                        
for w := 1 to 24 do (FindComponent('Edit' + IntToStr(w)) as TEdit).Text := List[w-1];
for q:=  1 to 16 do tcombobox(findcomponent('combobox'+inttostr(q))).text := List[q+23];
finally
List.Free;

end; end;

so gehts nun auch


danke!