Вы не тот тип выбрали для K, т.к. возможен дробный результат.
Так, без промежуточных переменных:
Код:
Edit3.Text := FloatToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text)/100);
Ну и что-бы сразу подсчитывались в Edit3, для Edit1 и Edit2 сделайте общее событие OnChange где пропишите этот код.