Mám túto metódu:

procedure TfrmCustomHead.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  i: Byte;
begin
  Ini := TIniFile.Create(MainForm.PrgPath + 'Spanwin.ini');
  for i := 0 to 11 do
    Ini.ReadString('Head', 'HeadString' + IntToStr(i), HeadString[i]);
  Ini.Free;
end;

A tento INI súbor:

[Head]
HeadString0=0
HeadString1=1
HeadString2=2
HeadString3=3
HeadString4=4
HeadString5=5
HeadString6=6
HeadString7=7
HeadString8=8
HeadString9=9
HeadString10=10
HeadString11=11

Načítané reťazce sú prázdne. Vie mi niekto vysvetliť, kde robím chybu? Táto metóda funguje dobre:

procedure TfrmCustomHead.bbOKClick(Sender: TObject);
var
  Ini: TIniFile;
  i: Byte;
begin
  Ini := TIniFile.Create(MainForm.PrgPath + 'Spanwin.ini');
  for i := 0 to 11 do
    begin
      HeadString[i] := (Panel.Controls[i] as TEdit).Text;
      Ini.WriteString('Head', 'HeadString' + IntToStr(i), HeadString[i]);
    end;
  Ini.Free;
end;