Como acessar e retornar nomes de dias longos a partir da matriz LongDayNames

LongDayNames: array[1..7] of string;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 7 do
    begin
      // vamos adicionar o nome do dia em um TMemo
      Memo1.Lines.Add(LongDayNames[i]);
    end;
end;

domingo
segunda-feira
terça-feira
quarta-feira
quinta-feira
sexta-feira
sábado

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos exibir o nome do dia de hoje no formato longo
  ShowMessage('Hoje é: ' + LongDayNames[DayOfWeek(Now)]);
end;

 
ShowMessage('Hoje é: ' + LongDayNames[DayOfTheWeek(Now)]);