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