Otóż taki kod napisałem, i niby działa.
procedure TForm1.Button2Click(Sender: TObject);
var INI: TINIFile;
I: Integer;
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'names.ini');
try
for I := 1 to Ile do //W zmiennej Ile przechowuję ilość dynamicznie tworzonych editów i labelów
INI.WriteString('Sekcja1', TEdit(FindComponent('edt' + IntToStr(Ile))).Text, TLabel(FindComponent('lbl' + IntToStr(Ile))).Caption);
finally
INI.Free;
end;
end;
Ale plik INI wygląda tak
[Sekcja1]
TrescEdita9=TrescLabela9
Nawet gdybym miał z 10 tych editów, i tak do pliku zapisze się tylko jeden ostatni.