Source position: dbctrls.pp line 1291
function ExtractFieldName(
const Fields: string;
var StartPos: Integer
):string;