Задача про вклад (через форму)

[Ya_tolko_uchus]

Как доделать программу?
мне надо результат вывести в label4

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

var
Vklad, dopol,Schet: real;
i:Byte;
Begin
For i:=1 to 12 do
Begin
Schet:=(vklad+Dopol*i)*1.1;


end;
end.

[GetMax]

Label4.Caption:=FoatToStrF(Schet,ffFixed,4,2)