请问delphi里有fetch这个函数吗？(50分)

维护以前以为老大的程序，里面有这么一段：
IdFtp.Get(fFileName,pList);
s:=pList.DataString;
while s<>''do
begin
Line:=Fetch(s,#13#10);
if Line='' then
Break;
.....................................
这里有个fetch函数，这意思俺明白，但就是不知道它的出处，难道是自己写的一个函数？

应该是自己写的，至少不会是Delphi的标准函数

Crtl+点击 []

自己写的,你可以用这个Fetch到工程里找一下,会找到的.
按下CTRL点击也可以的.那时就知道了

Parses a value from the delimited input string.

function Fetch(var AInput: string;
const ADelim: string;
const ADelete: Boolean): string;
Parameters
var AInput: string
Value to be parsed.

const ADelim: string = ' '
Delimiter character(s). Default value is CHAR32 (' ').

const ADelete: Boolean = true
Remove the parsed value from the input string. Default value is True.

Returns
String - Value parsed from the input string.

Description
Fetch is a String function that is used to parse the string in AInput up to the delimiter character(s) in ADelim.
ADelim may contain a single character, a sequence of characters, or the value CHAR0 (Null string).
Fetch can optionally delete the parsed value from AInput when ADelete is True. When ADelete is True, both the parsed value and the delimiter character(s) are removed from the input string AInput.

多人接受答案了。