Обращение к константе

[Kingcss]

Вообщем у меня забиты константы с координатами:

x1=15;
y1=15;
x2=50;
y2=15;

и.т.д
по этим координатам мне нужно рисовать фигуры:

Image1.Canvas.Rectangle(Bounds(n,m,25,25));

у меня рандомно генерируется число константы , тоесть если сгенерировалось 2 то обращаемся к константе x2,y2 если сгенерировалось 5 то к константе x5 и y5, как мне это реализовать, пробывал

n:='x'+inttostr(a);
m:='y'+inttostr(a);

но там ругается что типы неправильные...

[GunSmoker]

const
  x: array[1..2] of Integer = (15, 20);
  y: array[1..2] of Integer = (15, 15);
...
  n := x[a];
  m := y[a];

[Kingcss]

спс за совет, но такой способ мне врятли подойдет, т.к. у меня где-то 200 констант y и 200 констант x и вбивать их в массив очень долго.

[MaxNik2009]

создай двумерный массив, заполни его координатами, и потом можешь обращаться к элементам массива для получения координат:

procedure TForm2.BitBtn1Click(Sender: TObject);
const
  aCoord: array [0 .. 5, 0 .. 1] of integer = (
    (10, 10),
    (15, 2),
    (0, 0),
    (15, 36),
    (26, 21),
    (8, 8)
    );

var
  J: integer;

begin
  randomize;
  J:= Random(5) - 1;
  Canvas.Rectangle(aCoord[J, 0], aCoord[J, 1], aCoord[J, 0] + 25,
    aCoord[J, 1] + 25);
end;