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