function nospace(const S: string): string;
var pS, pR: ^byte;
L : integer;
begin
L := Length(S);
pS := @S[1];
SetLength(Result, L);
pR := @Result[1];
repeat
if pS^ = $20 then
dec(L)
else
begin
pR^ := pS^;
inc(pR);
end;
inc(pS);
until pS^ = $00;
SetLength(Result, L);
end;