Создание перечислимого строкового типа с возможностью использовать как STRING

[Alex Cones]

Создаю новый тип Folders:

Folders = (Fonts,Cursors,Pchealth,Temp);

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

Var 
Fol1:Folders;
Begin
Fol1:=Cursors;
S:='C:\Windows'+Fol1

Не вставляется и пишет: несовместимый тип Folders и String
Пробовал так:

Folders = ('Fonts','Cursors','Pchealth','Temp')

И программа сразу начинает посылать меня на этой строчке.

P.S. Создаю этот тип для возможности создания цикла:

For Fol1:=Fonts to Temp do...

[alexBlack]

В принципе можно:

uses TypInfo;

type
   Folders = (Fonts, Cursors, Pchealth, Temp);

function GetPathName(P:Folders):String;
var TInfo: PTypeInfo;
begin
   TInfo := TypeInfo(Folders);
   result := GetEnumName(TInfo, integer(P));
end;

var P:Folders;
    S:String;
begin
   for P := Fonts to Temp do begin
      S := 'C:\Windows\'+GetPathName(P);
      Writeln(S);
   end;

но не будет ли проще сделать так:

const
   FolderNames : array [1..4] of string = ('Fonts', 'Cursors', 'Pchealth', 'Temp');

var i:integer;
    S:String;
begin
   for i := low(FolderNames) to high(FolderNames) do begin
      S := 'C:\Windows\'+FolderNames[i];
      Writeln(S);
   end;

[Alex Cones]

Точно! И как это я про массив не подумал! Спасибо большое!