Void fastcall tForml::ButtonlClick(tObject *Sender)

{

float prior, curr; // предыдущее и текущее показания

// счетчика

float tariff; // тариф - цена 1 кВт/час

float summ; // сумма к оплате

prior = StrToFloat(Editl->Text);

curr = StrToFloat(Edit2->Text);

tariff = StrToFloat(Edit3->Text);

// проверить исходные данные

if ( curr < prior)

MessageDlg("Текущее значение показания счетчика не"

" может быть меньше предыдущего.",

mtWarning, TMsgDlgButtons() « mbOK,0);

return;

}

summ = (curr - prior) * tariff;

Label4->Caption = "Сумма к оплате: " +

FloatToStrF(summ, ffCurrency, 6,2)

}

Пример выполнения: