Namen für Tabsheets aus ini laden

[DannyK.II]

Hm.. was ist an dem Source falsch???

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
  newtabsheet : ttabsheet;
  ini : tinifile;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'set.ini');
for i := 1 to 4 do
begin
  try
    NewTabSheet := TTabSheet.Create(PageControl1);
    NewTabSheet.PageControl := PageControl1;
    NewTabSheet.caption := ini.readstring('settings',inttostr(i),'');
  finally
    ini.free;
  end;
end;
end;

In der ini steht dann z.B. 1=Tab1, 2=TabXYZ.

Aber ich hab echt kp, warum das nicht funktioniet!?


Ich bekomme beim 2. Durchlauf der Schleife eine Accessviolation...