Ayuda con ListBox

[bosster_018]

Casi no he trabajado con ListBox y apenas pude comprender como crear un Arreglo en la Universidad... Pero mas o menos me saldría así :

Código Delphi [-]
var
  Arreglo: array[1..3] of byte;

Código Delphi [-]
//Primero relleno el arreglo con algún número
Procedure CrearArreglo;
var
a : byte;
begin
  for a:=1 to 3 do
  begin
    Arreglo[a]:= 111;
  end;
end;

//Luego en el FormCreate de mi Formulario, llamo a mi "CrearArreglo"
//Y lo añado uno por uno en el Item del ListBox
procedure TForm1.FormCreate(Sender: TObject);
var
a : byte;
begin
  CrearArreglo;
  for a:= 1 to 3 do
  begin
    ListBox1.Items.Add(IntToStr(Arreglo[a]));
  end;
end;

Si entendí mal la pregunta, o lo hice mal , por favor corregirme duramente
Es que apenas me defiendo con los arreglos

Saludos!