procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='')or (Edit4.Text='') then
ShowMessage('Все поля обязательны к заполнению');
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')and (Edit4.Text<>'') then
Label9.Caption:='Спасибо за использование!';
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
e:=1-d/100;
f:=b/a*c*e;
g:=b/a*c;
Label6.Caption:=FloatToStr(f);
Label8.Caption:=FloatToStr(g);

end;