procedure TForm1.TowaryCalcFields(DataSet: TDataset);
begin
 with Towary do
 begin
  FieldByName('Wartosc').AsFloat :=
             FieldByName('Cena').AsFloat * FieldByName('Ilosc').AsFloat;
 end;
end;