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