[udachnik2]

Всем здравия! Така проблема.. чтоб её! Делаю калькулятор. Цель: научить его подсчитывать сложный процент, это если кому не понятно, объясню на деньгах. Есть 1000руб. Положить их в банк под сложный процент, допустим под 40%. Каждый месяц к моей 1000руб. будет прибавляться 40%. Это после первого месяца к ней прибавится 400руб. После второго месяца сумма будет отсчитываться уже от имеющейся. То есть 40% от 1400 это 560руб. Вот так примерно выглядит моя программа:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var bd,c:Integer;
a,b,d:Real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
bd:=StrToInt(Edit3.Text);
for c:=1 to bd do
begin
d:=a/100*b;
Label1.Caption:=d;//вот здесь начинается проблема. не получается вывести результат на метку.
end;
end;

end.