1:
2:

for zahl = low(typ) to high(typ) do
  ... tut nix					

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:

program Project2;
{$APPTYPE CONSOLE}
uses windows, sysutils;
function isPotenzOfTwo(zahl: dword): boolean; register;
asm
   xor ecx, ecx
   cmp eax, 2
   jl @false
   @loop:
   cmp ecx, 32
   je @lookup
   sar eax, 1
   inc ecx
   jc @lookup
   jmp @loop
   @lookup:
   cmp eax, 0
   jg @false
   mov eax, 1
   jmp @out
   @false:
   xor eax, eax
   @out:
end;

  var zahl:integer;

begin
//  useinputoutput;
  for zahl := low(dword) to high(dword) shr 1 do // shr 1 wegmachen und nix geht mehr
  if isPotenzOfTwo(zahl) then begin
    writeln(inttostr(zahl));
  end;
  readln;
end.					

1:
2:

for i:= 0 to $FFFFFFFF do
  bla;