Funcao pra retirar espacos em branco de uma string

Ola, pessoal.... estou precisando de uma funcao que retire os espacos em branco de umastring, pois estou usando o Firebird, e quando ele grava a string, ele me retorna no delphi a string gravada e o resto preenchido pelo espaco em branco.. gostaria de saber como retirar isso, seja por meio de funcao ou pela propria configuracao do Firebird...

Tentei fazer uma funcao, mas esbarrei num problema consegui nesta string: ´teste ´... retirou tudo.. o pau deu quando tentei: ´teste teste teste ´... aih deu pau....


Desde ja agradeco..

[]s
Fellipe.