예를 들어 네개의 델관련 사이트를 나타내려 한다면

const
Str_DelSite: array[0..3]of String = ('델마당', '델파이코리아', '볼랜드포럼', '볼랜드코리아');


열거형의 경우도 편리하게 쓸 수 있을 듯 해요.

type
TMonsterType = (mtSkull, mtBurningHand, mtHeadCutter, mtMushroomBoy);
const
Str_MonsterType: array[TMonsterType] = ('해골바가지', '불타는손', '머리싹뚝', '버섯돌이');

이런 식이죠...

사용할 때는 아래와 같게 쓰면 되지요.

Edit1.Text:=Str_DelSite[0];
Edit2.Text:=Str_DelSite[1];

Label1.Caption:=Str_MonsterType[mtSkull];
Label2.Caption:=Str_MonsterType[mtBurningHand];

문자열 상수 배열만 따로 별도의 유닛에 모아둬도 편리할 듯...