변환하고자하는게 무엇인지요?
숫자문자라면 먼저 답변하신분의 말씀데로하시는게 좋습니다.

혹, 문자와 숫자문자, 한글등의 문자열들을 아스키코드로 저장해서
다시 읽은다는건지요?
아래 소스에서는 일단 구분자를 로 했습니다.
먼저 에디트 박스를 3개 만들구요.

//에디트박스1의 문자를 에디트박스2에 아스키값으로 넣게됩니다
//edit1에 'srhong0070 홍성락' 이라고 넣었을때
//edit2에 '115/114/104/111/110/103/48/48/55/48/32/200/171/188/186/182/244/'나옵니다
procedure TForm1.Button1Click(Sender: TObject);
var
    i : integer;
    str, sumstr : string;
begin
    sumstr := '';
    str := edit1.Text;
    for i := 1 to length(str) do begin
        sumstr := sumstr + intToStr(ord(str[i])) + '/';
    end;
    edit2.Text := sumstr;
end;

//에디트박스2에 아스키값이 에디트3에 문자로 넣게됩니다
//edit2에 '115/114/104/111/110/103/48/48/55/48/32/200/171/188/186/182/244/'를
//edit3에 'srhong0070 홍성락' 로 변화시킵니다
procedure TForm1.Button2Click(Sender: TObject);
var
    i : integer;
    str, sumstr, tempstr : string;
begin
    sumstr := '';
    str := edit2.Text;
    i := pos('/', str);
    while i > 0 do begin
       tempstr := copy(str, 1, i-1);
       sumstr := sumstr + chr(StrToint(tempstr));
       str := copy(str, i+1, length(str));
       i := pos('/', str);
    end;

    Edit3.Text := sumstr;
end;


hsr/////////////////////////////////////

안녕하세요. 최용일입니다.

Integer/string간의 변환은 StrToInt, IntToStr함수를 쓰시면 됩니다.

문자열 비교는 CompareStr, CompareText함수를 이용하시거나 그냥 if 문에서 비교해도 됩니다.

if Str1 = Str2 then
   Do;

^^ 항상 즐코하세요...