Процедуры не функции...

[Вадим Вергун]

ABCObjects, GraphABC;
   procedure er(Key: integer);
   var xx,yy:integer;
   begin
   case Key of
  VK_Left:  xx:=xx+1;
  VK_Right: xx:=xx-1;
  VK_Up:    yy:=yy+1;
  VK_Down:  yy:=yy-1;
   end;
   SetPixel(10+xx,10+yy,ClRandom);
 end;  
begin
OnKeyDown := er;
  end.

Данная программа, написанная на паскале ABC.NET, должна вырисовывать цветные полосы в соответствии с нажатиями клавиш, но так как с завершением процедуры обработчика переменные координат пропадают программа "топчится на месте", чтобы данного не происходило логично использовать функцию(она возвращает параметр), но для обработчика событий нужна именно процедура . Что в данном случае посоветуете предпринять? Возможно в паскале имеется вид переменных которые доступны всей программе (как в С#) как их обьявить?

[VIK_aka_TOR]

почитайте по поводу глобальных переменных нажми меня