Delphi: Рекуррентные вычисления.

[Antosha]

Дан числовой ряд и мaлaя вeлeчинa E=0.001. C тoчнocтью E нaйти cyммy pядa, oбщий члeн кoтoрoгo зaдaн фoрмyлoй: 1/2^n + 1/3^n

Вот что получилось:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
const
E=0.001;
var
a, n, i, ch, zn, sum: real;
begin
ch:=5;
zn:=6;
while 1/n>=E do
              begin
                i:=i*3;
                a:=(ch*2*i)/(zn*6);
                sum:=sum+a;
                n:=n+1;
end;


Label1.Caption:=FloatToStr(sum);
end;

end.

Считает, но вроде не правильно...
Преподаватель сказала нужно через рекуррентный коэффициент делать. Я его посчитал, но сним не получается. Подскажите как сделать?