Source position: ufrmcompcreate.pas line 151
function TrimChar(
query: string;
delimiter: char
):string;