Простая процедура

[MyLastHit]

Пишу процедуру указания размерности и положения шейпа на форме.

procedure position(a,b,c,d:Integer; p:TShape);
begin
  with p do
  begin
    Height:=a;
    Left:=b;
    Top:=c;
    Width:=d;
  end;
end;

Пытаюсь вызвать:

Position(17,3,5,39,menu_shape[1]);

В ответ получаю Missing operatop or semicolon. Давно не писал процедуры, и уже и забыл как их писать. Вот что вспомнил... Битый час смотрю и глаза протираю, не пойму в чем ошибка. Подскажите.

[MyLastHit]

Извиняюсь, забыл что position зарезервировано...
{Решено}