Acceder a un Array de StaticText

[bulc]

No consigo acceder a un Array de StaticText para cruzar los rótulos de manera aleatoria para descolorlos respecto a su posición Inicial. El STx_Array se recoge en el evento OnCreate. Uso pares formados
por los cuatro primeros elementos y los otros cuatro de un String con ocho dígitos.
Gracias por vuestras sugerencias.

procedure TForm1.BtnCruzaSTexClick(Sender: TObject);
Var // Funciona bien. Saca 8 números al azar.
I, IAzar: Integer; S, R : String; // La var Str R es prescindible.
Aux : TPoint;
begin
Aux.X := 0 ;
Aux.Y := 0 ;
Randomize; // In Initialization
S := ''; // Importante
REPEAT
IAzar := Random(8) + 1;
R := IntToStr(IAzar );
if (Pos( R, S) = 0) then
Insert( R, S, Length(S) + 1);
//ShowMessage( IntToStr(Cont)+' '+ R ) ;
UNTIL Length(S) = 8 ;
Edit1.Text := S ;
//////////////////////////////////////////////////////////////////////////
for I := 1 to 4 do
begin
// ShowMessage( S[I]+ ' ' + S[I+4] );
Aux.X :=STx_A[I].Left; Aux.Y :=STx_A[I].Top;
STx_A[I].Left := STx_A[I+4].Left ;
STx_A[I].Top := STx_A[I+4].Top ;
STx_A[I+4].Left := Aux.X ;
STx_A[I+4].Top := Aux.Y ;
end;
end;

[bulc]

Apunto la solución. He creado un Array de TPoint y otro de TStaticText que se cargan en el evento onCreateForm
procedure TForm1.BtSTMoveClick(Sender: TObject);
// Variables Globales STx_A0 => TPoint; ST_A => TStaticText.
Var
Aux : TPoint ; Par1, Par2, N, I, IAzar : Integer; S :String;
begin
S := '';
Repeat
IAzar := Random(8) + 1 ;
if Pos(IntToStr(IAzar), S ) = 0 then
Insert( IntToStr(IAzar), S, Length(S) + 1) ;
Until Length(S) = 8 ;
Edit1.Text := S; // Muestra la serie de 8 digitos alfanum.
// Código de intercambio de posiciones de los TStaticText según serie S
for I := 1 to 4 do
begin
N := I + 4;
Par1:= StrToInt(S[I] ); Par2:= StrToInt(S[N] );
Aux.X :=ST_A[Par1].Left; Aux.Y :=ST_A[Par1].Top;
ST_A[Par1].Left := ST_A[Par2].Left ;
ST_A[Par1].Top := ST_A[Par2].Top ;
ST_A[Par2].Left := Aux.X ;
ST_A[Par2].Top := Aux.Y ;
end;
end;

[ElKurgan]

Gracias por compartir la solución

Saludos