procedure TForm2.Button1Click(Sender: TObject);

 var

  Number, Procent, Prn: Real;

 begin

 Procent:= StrToFloat(Edit1.Text);

 Number:=StrToFloat(Edit2.Text);

 PrN:=0.01*Procent*Number;

 Edit3.Text:=FloatToStr(PrN);

end;

 procedure TForm2.Button2Click(Sender: TObject);

begin

  Edit1.Text:='';

 Edit2.Text:='';

 Edit3.Text:='';

end;