Source position: uustrings.pas line 54
function Extract(
S: string;
var Index: Byte;
Delim: char
):string;