Динамическое создание компонентов

[Nice42ru]

Всем здраствуйте!!!
Как сделать, чтобы при каждом нажатии на Button1 создавался очередной TEdit и его текст записывался в INI-файл?

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
 e:tedit;
begin
 inc(c);
 e:=tedit.Create(self);
 with e do
 begin
   parent:=self;
   name:='edit'+inttostr(c);
   text:='edit'+inttostr(c);
   left:=100;
   top:=(height+12)*c;
 end;
end;

А по поводу сохранения то вот:

var
 i:integer;
begin
for I := 0 to ComponentCount-1 do
 if pos(uppercase('edit'),uppercase(Components[i].Name))<>0 then
  //Здесь сохрняем текст (components[i] as TEdit).Text
end;

[Nice42ru]

Спасибо огромное! Сейчас буду пробывать!

[russian-stalker]

Ах да, надо ещё добавить глобальную переменную:

var
 Form1:TForm1;
 c:integer=0;

[Nice42ru]

спасибо огромное!