function BorraMultiespacios(S: String): String;
var
Cadena: PCHAR;
begin
Cadena:= @S[1];
asm
mov edi, Cadena
mov esi, edi
@loop1:
cmp word ptr [esi], 2020h
jne @sigue
inc esi
jmp @loop1
@sigue:
movsb
cmp byte ptr [esi], 0
jne @loop1
mov word ptr [edi], 0h
end;
Result:= Cadena;
end;