Problema con el trim

[[duilioisola]]

Quizás el error esté en el resto del código...
Prueba a poner algo dentro de cadena, para ver si el código luego agrega espacios o lo vuelve a llenar en otro momento con el valor original.

Código Delphi [-]
cadena:=trimright(grid.Cells[0,c]);
cadena:=cadena+'%';