Объявление массива с постоянными строками

попробуйте вот так

Const
EntryCount =4;
Labels : array [1..EntryCount] of string = ('label1','label2','label3','label4');

Можно также воспользоваться динамическими массивами, как в этом примере:

var
  CachedLabels: TArray<string>;

function ReadLabels: TArray<string>;
begin
  if Length(CachedLabels) = 0 then
    CachedLabels := TArray<string>.Create('Alpha', 'Beta', 'Gamma');
  Result := CachedLabels;
end;

Хотя здесь динамический массив в куче инициализируется во время выполнения, пример показывает «псевдоконструктор» динамических массивов Delphi, позволяющий инициализировать их прямо в месте использования. (ПРИМЕЧАНИЕ: этот пример не является потокобезопасным).

Чтобы получить длину массива, достаточно вызвать стандартную функцию Length(), а для определения допустимого диапазона индексов воспользоваться стандартными функциями Low() и High().

В старых версиях Delphi замените TArray собственным типом динамического массива строк, например:

type
  TLabelArray = array of string;

В XE7 константу динамического массива можно определить так:

const
  Labels: TArray<String> = ['Alpha', 'Beta', 'Gamma'];

Есть и обходной путь. Напишите такую функцию:

procedure copyLabels(var destination: ArrayOfString; const source: Array Of String);
var
  count, index: Integer;
begin
  count := Length(source);
  SetLength(destination, count);
  for index := count-1 downto 0 do
    destination[index] := source[index];
end;

затем вызовите эту функцию следующим образом:

copyLabels(labels, ['LabelA', 'LabelB', 'LabelC']);

где:

labels: ArrayOfString;