Calculando o Troco em uma Aplicação Delphi

function calculaTroco(conta, pago: real): String;
const      nota: array[1..7] of integer = (100, 50, 20, 10, 5, 2, 1);
       centavos: array[1..5] of integer = (50, 25, 10, 5, 1);
var      troco: real;
    i, vlr, ct: integer;
             s: string;
begin
  if (pago < conta)
     then calculaTroco := 'Pagamento insuficiente, faltam R$ ' +
            FloatToStr(conta - pago)
  else begin
         troco := pago - conta;
         s := 'Troco = R$ ' + FloatToStr(troco);
         s := s + #13#10 + #13#10;
// definindo as notas do troco (parte inteira)
         vlr := trunc(troco);
         i := 1;
         while (vlr <> 0) do
         begin
           ct := vlr div nota[i]; // calculando a qtde de notas
           if (ct <> 0)
              then begin
                     s := s + IntToStr(ct) +
                       ' nota(s) de R$ ' + IntToStr(nota[i]) + #13#10;
                     vlr := vlr mod nota[i]; // sobra
                   end;
           i := i + 1; // próxima nota
         end;

         s := s + #13#10;
// definindo as moedas do troco (parte fracionária)
         vlr := round(frac(troco) * 100);
         i := 1;
         while (vlr <> 0) do
         begin
           ct := vlr div centavos[i]; // calculando a qtde de moedas
           if (ct <> 0)
              then begin
                     s := s + IntToStr(ct) + ' moeda(s) de ' +
                       IntToStr(centavos[i]) + ' centavo(s)' + #13#10;
                     vlr := vlr mod centavos[i]; // sobra
                   end;
           i := i + 1; // próxima moeda
         end;

         calculaTroco := s;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var conta, pago: real;
begin
  Memo1.Clear;
  try
    conta := StrToFloat(Edit1.Text);
    pago := StrToFloat(Edit2.Text);

    Memo1.Lines.Add(calculaTroco(conta, pago));
  except
    ShowMessage('Erro: dados informados inválidos !!!');
  end;
end;