[MiraLaklamon]

Сообщение от samuilius

то есть вот так ?

Код:

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

end.
//--------------------------------------------------------
procedure TForm1.edt4Change(Sender: TObject);
begin
a := StrToFloat(edt3.Text);
b := StrToFloat(edt4.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.
//--------------------------------------------------------------
procedure TForm1.edt6Change(Sender: TObject);
begin
a := StrToFloat(edt5.Text);
b := StrToFloat(edt6.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

Нет. В инспекторе объектов, на закладке Events в событии OnChange укажи для edt4 и edt6 тот же обработчик событий что и у edt2.