이것은 제가 가지고 있는 자료에서 찾은 건데..
혹 필요하실것 같아 올립니다.
이것을 잘 이용하면 되지 않을지..
도움이 되었으면 하는군요..

--- String Type 의 변수를 가지고 할 수 있는 일 ! ---

1. Concat (문자열을 합쳐 준다)
function Concat(str1, str2: String);string;
//---------------------
str1 := str1 + str2;
-----------------------//
위에 문장과 다를게 없다.
--------------------------------------------------------------------

2. Copy (원하는 만큼의 문자열을 RETURN 해 준다)
function Copy(str: String, Index, Counter: integer);string;
Index = 시작 위치
Counter = 시작위치부터의 리턴할 문자열까지의 카운터
--------------------------------------------------------------------
        str := '송아지 망아지';
        str := Copy(str, 1, 6);
실행 결과 : 송아지
--------------------------------------------------------------------

3. Insert (원하는 위치의 문자열을 삽입 시킨다)
procedure Insert(Source: string; var S: string; Index: Integer);
Source =  원본 문자열
S = 삽입시킬 문자열
index = 삽입시킬 위치
--------------------------------------------------------------------
   str := '강지';
   Insert('아', str, 2);
실행 결과 : 강아지
--------------------------------------------------------------------

4. Delete (원하는 위치의 문자열을 삭제 한다)
procedure Delete(var S: string; Index, Count:Integer);
S = 소스 문자열
index =  삭제를 시작할 위치
Count = 시작위치부터의 지울위치까지의 카운터
--------------------------------------------------------------------
    s := '강앙아지';
    Delete(s,3, 2);
실행 결과 : 강아지
--------------------------------------------------------------------

5. Length (문자열의 길이를 반환 해 준다)
function Length(S: string): Integer;
s = 소스 문자열
--------------------------------------------------------------------
    Len := Length('강아지');
실행 결과 : 6
--------------------------------------------------------------------

6. Pos (찾고자 하는 문자열의 위치를 반환하여 준다)
Pos(Substr: string; S: string): Integer;
Substr =  찾고자 하는 문자열
S = 원본 문자열
    Position := Pos('아', '송아지');
실행 결과 : 3
--------------------------------------------------------------------