Рекурсия в Delphi

[Ericnex]

Подскажите как оптимизировать мою программу чтобы через каждую итерацию шрифт увеличивался вдвое
procedure TForm1.Button1Click(Sender: TObject);
Function Tekst(n,k:integer):integer;
var i,h:integer;
begin
if n > 0 then
begin
for i:=1 to 500 do
h := Image1.Canvas.TextHeight('H');
Image1.Canvas.TextOut(0, (k-n)*h*5,IntToStr(k-n+1));
Image1.Canvas.TextOut(0, (k-n)*h*5+h,'Как это было:');
Image1.Canvas.TextOut(0, (k-n)*h*5+2*h,'У попа была собака- он ее любил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+3*h,'Она съела кусок мяса- он её убил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+4*h,'Убил и закопал на могиле написал:');
end;
end;
var n,h,k:integer;
begin

Try
k := strtoint(Edit1.Text);
Except
exit;
end;
n:=k;
Image1.Canvas.Font.Assign(Font);
Image1.Canvas.Brush.Color := Color;
Image1.Canvas.Brush.Style := bsSolid;
h := Image1.Canvas.TextHeight('H');
Image1.Height:=h*n*5;
Image1.Canvas.FillRect(Rect(0,0,Ima ge1.Width, Image1.Height));
For n:=k DownTo 0 do Tekst(n,k);
end;
end.

end.
Заранее спасибо

[DoDge_VipeR]

for i:=1 to 500 do begin
h := Image1.Canvas.TextHeight('H');
Image1.Canvas.TextOut(0, (k-n)*h*5,IntToStr(k-n+1));
Image1.Canvas.TextOut(0, (k-n)*h*5+h,'Как это было:');
Image1.Canvas.TextOut(0, (k-n)*h*5+2*h,'У попа была собака- он ее любил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+3*h,'Она съела кусок мяса- он её убил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+4*h,'Убил и закопал на могиле написал:');
image1.canvas.font.size:=image1.canvas.font.size*2;
end;

[Ericnex]

Это в принципе все?