Delphi - Asignar a vector usando variable como indicador de

¿Se puede?
Estoy tratando de hacer esto:

private
{ Private declarations }
contador:byte;
numeros:array[1..10] of integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if contador < high(numeros) + 1 then
begin
numeros[contador]:=strtoint(edit1.Text);
{aqui contador toma el valor del edit1}
contador:=contador + 1;
end
else
showmessage('No hay mas lugar');
end;

Y me encuentro que contador termina cargandose con
el valor que estoy tratando de asignarle al vector
numeros en la posicion que marca el contenido de
la variable contador.
Desde ya muchas gracias por cualquier respuesta u orientacion

¿No modificas en alguna otra parte la variable contador?, realmente es muy extraño lo que te sucede.