function GetFieldValue(separator:Char;strLine: string; nNum: Integer): string;
var
  Strs :TStrings;
  ResultStr:string;
begin
  Strs := TStringList.Create;
  strs.Delimiter := separator;
  Strs.DelimitedText  := strLine;
  if nNum > Strs.Count then
     ResultStr := ''
  else
     ResultStr := Strs[nNum-1];

  FreeAndNil(Strs);
  Result := ResultStr;
end;

GetFieldValue(分隔符,字符串,要获取第几个字段的内容) 

函数返回该字段的内容。