Типизированные константы, Дельфи Опции

[sheka]

const
  y0: integer = 20;
//...
  y0 := Image1.Height - y0;
//...

[Error] Unit1.pas(103): Left side cannot be assigned to
ыыы... Чего то я вааще в шоке

[volvo]

А как тогда статические переменные делать в процедурах?

Делай не в процедурах, а в методах класса. А "статические переменные" теперь - это переменные с классовой областью видимости, которые инициализируются в конструкторе. Ибо Object Pascal, и не фиг (по мнению разработчиков) сидеть на процедурном подходе.

А между тем Extended Pascal вполне умеет:

program tst;

procedure p;
var count: integer = 0; attribute(static);
begin
  inc(count);
  writeln('count = ', count);
end;

var i: integer;
begin
  for i := 0 to 9 do
  begin
    p;
  end;
end.

, что выдает:

Vlady@V877$ gpc tst.pp
Vlady@V877$ ./a.out
count = 1
count = 2
count = 3
count = 4
count = 5
count = 6
count = 7
count = 8
count = 9
count = 10