[Decoding]

или так

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := '   Тестовая строка   ';
   while Pos( ' ', s ) > 0 do
      Delete( s, Pos( ' ', s ), 1 );
   ShowMessage( s );
end;