Fórum Duvica com Orientação a Objeto #191411

Criei uma classe e quando chamo o construtor dela, o Delphi me retorna um erro.

Codigo:

type
Tcidade = class
public
posicaox : array of integer;
posicaoy : array of integer;
constructor cidade;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
constante:=Tconstantes.Create;
cid:= Tcidade.cidade;
end;

constructor Tcidade.cidade;
var i : integer;
begin
constante.qG:=5;
for i := 0 to constante.qG - 1 do
begin
posicaox[i]:=abs(random(constante.PosMaxX));
posicaoy[i]:=abs(random(constante.PosMaxY));
end;
end;

ERRO : Acesso Violado.


Se alguem souber o que estou fazendo de errado, por favor me diga.

Obrigado.

Marco A. Justo