1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);
var Anzahl:Integer;
begin
  Anzahl:=10;
  Memo1.Text:=IntToStr(moeglichkeiten(Anzahl));
end;

function moeglichkeiten(Anzahl:integer):integer;
begin
  case Anzahl of
    1:moeglichkeiten:=1;
    2:moeglichkeiten:=2;
  else
  moeglichkeiten:=moeglichkeiten(Anzahl-1)+moeglichkeiten(Anzahl-2)
  end;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:

function moeglichkeiten(Anzahl:integer):integer;
begin
  Assert (Anzahl >= 0,'Anzahl muss >= 0 sein');
  If Anzahl <= 1 then
    Result := Anzahl
  Else
    Result := moeglichkeiten(Anzahl-1) + moeglichkeiten(Anzahl-2)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);
var aktuell, vorher1,
    vorher2, jahre, i: Integer;
begin
  aktuell := 1;
  vorher1 := 0;
  jahre := strtointdef(edit1.text, 10);

  for i := 0 to jahre-1 do
  begin
    vorher2 := vorher1;
    vorher1 := aktuell;
    aktuell := vorher1 + 2*vorher2;

    memo1.Lines.Add('Im Jahr ' + IntToStr(jahre) + ' sind es ' + IntToStr(aktuell) + ' Hasen');
  end;

end;