Borrar caracteres de una cadena

[jymy788]

Buenas a todo el foro.

Puede parecer una tontería, y seguro que lo es, pero a mi me tiene frito. A ver, tengo una cadena, de una longitud, y esa cadena se construye con una función. Siempre termina con los caracteres , '

y yo lo que necesito es borrar esa última coma (,) y volver a escribir la (')

ej.- cadena := 'select aaa, bbb, ccc, ';

y la que quiero obtener después de borrar es la siguiente

cadenafin := 'select aaa, bbb, ccc';

me podéis echar un cable? He probado con StrLCopy pero no le puedo pasar string, tiene que ser char y no quería que fuera así.

Gracias a todos de antemano