Delphi Функция удаляет всю гадость после переданного символа

//Функция удаляет всю гадость после переданного символа
// Допустим можно убрать комментарии после #
function delcom(str:string; simbol:string):string;
begin
delete(str,pos(simbol,str),length(str)+1-pos(simbol,str));  //убираем коммент
result:=str;
end;
 
// пример использования
var
s:=’Delphi in mind  # less ‘
begin
s:=delcom(s,’#')
// вернет s=Delphi in mind