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+'%';