关于循环的问题？help

Question

有以下组件：4个edit,1个button,edit1的值为初值，edit2为终值，edit3为每次递增值，edit4的值为除数，i做除数，结果存在另一个窗体的listBox中，我想用for循环实现这个功能，如何写语句呢？
E1:=StrToFloat(Edit1);
E2:=StrToFloat(Edit2);
E3:=StrToFloat(Edit3);
E4:=StrToFloat(Edit4);
for i:=e1 to e2 do
  E4:=...怎么写？
请指教？？？

Answer 1

var 
  value:array [1..4] of real;var
 idx:integer;
for idx:=1 to 4 do 
   value:=StrTofloat(TEdic( FindComponent('Edit'+intToStr(idx))).text );

Answer 2

i:=strtofloat(E1);
while true do
begin
  form2.listbox.items.add(floattostr(E4/i));
  i:=i+E3;
  if i>E2 then break;
end;这样就可以了,你试试吧!