구분자로 구분되어 있는지료를 읽은 방법은 여러가지가 있겠지만..
다음은 전철호님이 올리신 예제 입니다 참고 하십시오.

{
구분자로 이루어진 문자열을 분리하여 읽기
예를 들어 Text 화일에서
1111,전철호,경기도 수원,212-9667
PasString(str,',',1); -> 1111
PasString(str,',',2); -> 전철호
}
function PasCount(const s,delimiters:string):integer;
var
  delimiter : Boolean;
  Count,i : Integer;
begin
  Count := 0;
  delimiter := True;
  if Length(s) > 0 then
  begin
    i := 1;
    While (Pos(s[i],delimiters) <> 0) and (i <= Length(s)) do inc(i);
    For i := i to Length(s) do
      if Pos(s[i],delimiters) <> 0 then
        delimiter := True
      else begin
        if delimiter = True then inc(count);
        delimiter := False;
      end;
  end;
  PasCount := Count;
end;

function PasString(const s,delimiters : String ; num : Integer) : String;
var
  i,j,sLength,sStart,sEnd : Integer;
begin
  if PasCount(s,delimiters) >= num then
  begin
    sStart := 1;
    while (Pos(s[sStart],delimiters) > 0) and (sStart <= Length(s)) do
      inc(sStart);
    for j := 1 to num-1 do
    begin
      while pos(s[sStart],delimiters) = 0 do inc(sStart);
      while pos(s[sStart],delimiters) <> 0 do inc(sStart);
    end;
    sEnd := sStart;
    for i := sStart to Length(s) do
    begin
      if s[i] = delimiters then Break;
      if s[i] <> delimiters then inc(sEnd);
    end;
    sLength := sEnd - sStart;
    PasString := Trim(Copy(s,sStart,sLength));
  end else PasString := '';
end;