>>419
with TMemIniFile.Create(省略) do
begin
I:=0;
while I<アドレスの数 do
begin
WriteString('Address', 'Address'+IntToStr(I), I番目のアドレス);
Inc(I);
end;
Update;
end;