1:
2:

0111111111  //Das markierte Bit Enthält das Vorzeichen.
1000000000  //Beim überlauf gibt es einen Vorzeichenwechsel.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TFibonacci_Form.Fibonacci_Reihe_MemoKeyPress(Sender: TObject; var Key: Char);
  var
    Zahl1, Zahl2, Speicher: Int64;
  begin
    with Fibonacci_Reihe_Memo do
      if Key = #1{Strg+a} then
        SelectAll
      else if Key = char(vk_Return) then begin
        Text := Copy(Text, 1, SelStart);  {Reihe bei Cursorposition beginnen,
                                           Rest wegschneiden}
        if TryStrToInt64(Lines.Strings[Lines.Count - 2], Zahl1) and
           TryStrToInt64(Lines.Strings[Lines.Count - 1], Zahl2) then
        begin
          Speicher := Zahl1 + Zahl2;
          if Speicher = 0 then Exit;
          Zahl1 := Zahl2;
          Zahl2 := Speicher;
          //bei Überlauf gibt es einen Vorzeichenwechsel
          while (Sign(Zahl1) = Sign(Zahl2)) or  //ups hier muss ein "or" hin, war vorher "and"
                (Abs(Zahl2) < High(Int64) div 2) do begin
            Lines.Append(IntToStr(Speicher));
            Speicher := Zahl1 + Zahl2;
            Zahl1 := Zahl2;
            Zahl2 := Speicher;
          end;
        end;
      end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function power(x,y : extended):extended;
begin
   if y < 0 then
       power := 1/power(x,-y)
   else
      if y = 0 then
         if x = 0 then
            power := 0
         else
            power := 1
      else 
         power := exp(x*ln(y));
end ;{power}

function fibo(int n):Int64;// in TurboPascal comp 
consturbo
  Wur5 : extended = sqrt(5);
  {phi = (1+sqrt(5)/2} // = fib(n+1)/fib(n) fuer n -> unendlich
  phi : extended = 1.618033989...;
  {Rho = (1-sqrt(5)/2 = -phi +1}
  rho : extended = -0.618033989;
{vielleicht ausrechnen und hinschreiben)
var
begin
  fibo := round((power(phi,n)+power(rho,n))/Wur5);
end;