[samuilius]

Здравствуйте.
У меня задача написать калькулятор на умножение для нескольких edit`s

Для двух у меня получилось вот пример

procedure TForm1.edt2Change(Sender: TObject);
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

то есть при добавлении значения в edit2 , значения первого edit умножаем на значение второго edit и выводим в label.

Но следующая задача для меня сложнее и я не могу понять как ее реализовать то есть edit` ов несколько

edit1 edit 2
edit3 edit4
edit5 edit 6

label

тоесть
значения edit1 умножаем на значения edit 2
значения edit3 умножаем на значения edit 4
значения edit5 умножаем на значения edit 6

и результат выводим сразу в лейбл

помогите начинающему пожалуйста