Delete extra spaces and replaces tab and line break characters with single space character.

procedure CompressSpaces(var s: ecString);