Delphi. Как увеличить компонент Tedit в 2 раза с каждым шагом

[Женька Good]

Создаю программным кодом компонент Tedit заданное кол-во раз.
Делаю через цикл. как сделать, чтобы с каждым шагом следующий компонент Эдит становился в 2 раза больше предыдущего...
Вот, что у меня получилось, но работает не правильно

procedure TForm1.Button1Click(Sender: TObject);
Var i,a:integer;
    lb:Tedit;
begin
a:=strtoint(inputbox('Ïðîãðàììóëèíà','Ââåäèòå êîëè÷åñòâî êîìïîíåíòîâ','çíà÷åíèå'));// задаю кол-во элементов Тэдит
For i:=0 to a-1 do
 begin
 lb:=Tedit.Create(form1);
 lb.Parent:=Form1;
 lb.Name:='a'+inttostr(i);
 lb.text:='';
 If (lb.Top=0) then
   begin
   lb.Width:=20
   end
     else
     begin
 lb.Width:=i*20*2;
     end;
 lb.Height:=25;
 lb.Color:=clblue;
 lb.top:=i*25;
 end;
end;

[Serge_Bliznykov]

а так?

...
 For i:=0 to a-1 do
   begin
     lb:=Tedit.Create(form1);
     lb.Parent:=Form1;
     lb.Name:='a'+inttostr(i);
     lb.text:='';
     lb.top:=i*25;
     lb.Width:=20+i*2;
     lb.Height:=25;
     lb.Color:=clblue;
   end;