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

function IncrementValue: Integer;
const
  MyStaticVar: Integer = 0;
begin
  Inc(MyStaticVar);
  Result := MyStaticVar;
end;

ShowMessage(IntToStr(IncrementValue)); // 1
ShowMessage(IntToStr(IncrementValue)); // 2
ShowMessage(IntToStr(IncrementValue)); // 3					

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

{$IFDEF MSWINDOWS} // Delphi 6+
 {$WRITEABLECONST ON}
{$ENDIF}
{$IFDEF LINUX} // Delphi 6+ und Kylix 1+
 {$WRITEABLECONST ON}
{$ENDIF}					

1:
2:
3:
4:

var x: Integer = 10;
begin
  ShowMessage(IntToStr(x)); // 10
end;