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

var 
 Form1: TForm1;  
schachbrett : array [1..8,1..8] of Int64
procedure TForm1.Button1Click(Sender: TObject);
var  i, b_stabe, zahl: integer;
begin  
i:= 1; 
for b_stabe:= 1 to 8 do   
for zahl := 1 to 8 do     
begin        
schachbrett[b_stabe,zahl]:= i;    
i := i*2;       
end;

for b_stabe:= 1 to 8 do   
for zahl := 1 to 8 do 
StringGrid1.Cells[b_stabe,zahl] := IntToStr(schachbrett[b_stabe,zahl]); 

  
end;					

1:

var  Form1: TForm1;  schachbrett : array [1..8,1..8] of UInt64					

1:
2:

  ShowMessageFmt('high(int64)=%d',[high(Int64)]);
  ShowMessageFmt('that is 2^%f',[Log2(high(Int64))]);					

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TFormXY.ButtonXYClick(Sender: TObject);

  function My2Power(Exponent: Integer): String;
  var
    Tmp: Byte;
    i, j: Integer;
  begin
    if Exponent <= 62 then
      Result := IntToStr(Int64(1) shl Exponent)
    else
    begin
      Result := IntToStr(Int64(1) shl 62);
      for j := Exponent downto 63 do
      begin
        Tmp := 0;
        for i := Length(Result) downto 1 do
        begin
          Tmp := 2*(Ord(Result[i]) - 48) + Tmp;
          Result[i] := Chr((Tmp mod 10) + 48);
          Tmp := Tmp div 10;
        end;
        if Tmp <> 0 then
          Result := Chr(Tmp + 48) + Result;
      end;
    end;
  end;

  function My2PowerEasy(Exponent: Integer): String;
  begin
    Result := IntToStr(Int64(1) shl Exponent);
    if Exponent = 63 then
      Delete(Result, 1, 1)
    else if Exponent > 63 then
      raise Exception.Create('Exponent zu groß, mehr als 63 geht so nicht!');
  end;

begin
  ShowMessage(My2PowerEasy(63));
  ShowMessage(My2Power(63));
end;