Limpiar espacios en blanco( en string)

[jmlifi]

Trabajo sobre firebird 1.5.3 utilizando delphi 2006
Hasta ahora la funcion TRIM() me ha funcionado correctamente para limpiar los espacios en blanco.

Sin embargo dentro de un procedure:

Código Delphi [-]
uses SysUtils....
..
..
procedure Tomarvalores;
var
    c: string;
begin
  c:= trim('tarifa a');
...
end;

Sorprendente, un misterio, NO VA. ¿ a qué es debido ?