Returns a sub-string from S which is followed by Sep separator and deletes the sub-string from S including the separator.

function StrToken(var S: string; 
                  Sep: Char): string;

ImagingUtility (at line 158)