月利率來看，則存入多少金額可獲得最高報酬利率

procedure TForm1.Button1Click(Sender: TObject);
var
  i : double;
  j : integer;
  want_money : integer;
begin
  if Edit2.text='0' then
    j := 1
  else
    j := strtoint(Edit2.text);
  i :=  trunc(j*strtofloat(Edit1.Text)/1200+0.4)+0.5;
  want_money := trunc(i*1200/strtofloat(Edit1.Text)+0.5);
  Label3.Caption := floattostr(want_money);
  Label4.Caption :=  floattostr((i+0.5)*1200/want_money);
  Label5.Caption :=  floattostr(i+0.5);
end;