[angvelem]

Ну примерно так можно инициировать массив на старте

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  for I := 1 to 10
    a[i] := Random;
end;