1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

int inc(void){
 static int i = 0;
 return i++;
}

int a = inc(); // a ist jetzt 0
a = inc(); // a ist jetzt 1
a = inc(); // a ist jetzt 2
a = inc(); // a ist jetzt 3

usw...					

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

program test;

var 
  I: Integer; // Globale Variable

procedure Blub;
var I:Integer; // lokale Variable
begin
  I:=9;
end;

procedure Blab;
begin
  I:=8;
end;

end.					

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

procedure TForm1.Timer1Timer(Sender: TObject);
const
  {$J+} Test : Integer = 7; {$J-}
begin
  Inc(Test);
  Caption := Inttostr(Test)
end;					

1:

const MyVar: Integer = 10;