∧,,∧　ｻｯ　 ／強調表示とか言う奴
　　　　　ミ,,ﾟДﾟﾐ　　＜　逝ってよし
　　　　⊂ 　 Ｏm　　　＼
　　　　　ミ､,, ﾐ,
　　　　　 .しヾJ　

>>575のコードのインデントはこう
(インデントは全角スペでヨロシコ)
procedure TForm1.Button2Click(Sender: TObject);

　　function func(a:Integer):Integer;
　　var i:integer;
　　begin
　　　Result:=0; if a<1 then exit;
　　　Result:=1; if a<2 then exit;
　　　for i:=1 to a-1 do Result:=Result+func(a-i)+func(i);
　　end;

var StartTime:int64;
begin
　StartTime:=GetTickCount;
　func(19);
　Memo1.Lines.Add(format('%10.2fsec',[(GetTickCount-StartTime)/1000]) );
end;

関数内関数くらい、氏っとけ