var
  data : array[0..3] of Word;
  i : Integer;

begin
  // Заполнение Word массива
  ShowMessage('Перед FillChar :');
  for i := 0 to 3 do
  begin
    data[i] := i*5;
    ShowMessage(IntToStr(i)+' значение элемента = '+IntToStr(data[i]));
  end;

  // Теперь заполняем массив значением 1
  // Word - 2 байта: 00000001 00000001 hex = 257 dec
  FillChar(data, 4*SizeOf(Word), 1);

  // И показываем массив теперь
  ShowMessage('После FillChar :');
  for i := 0 to 3 do
    ShowMessage(IntToStr(i)+' значение элемента = '+IntToStr(data[i]));
end;