Код:
procedure TForm1.Button1Click(Sender: TObject);
var
// Динамический символьный массив
arr : array of char;
// итератор для цикла
i : integer;
begin
// Выделяем память под массив
SetLength(arr, 255);
arr[0] := 'П';
arr[1] := 'р';
arr[2] := 'и';
arr[3] := 'в';
arr[4] := 'е';
arr[5] := 'т';
arr[6] := '!';
{
выводим от длинны массива, которая заполнена символами
до его начала
}
for i := Length(arr) downto 0 do
Memo1.Lines.Add(arr[i]);
// Освобождаем память
arr := nil;
Если необходимо добавить еще символов, добавьте соответствующее кол-во индексов. В цикле менять ничего не надо, - автоматически определяет сколько занимает массив.