Delphi: Função que remove espaços extras

Não sei como usuários de sistemas conseguem fazer isso, mas já peguei problemas do tipo.

Exemplo: 'Maria   da Silva     Rodrigues';
                 'Rua  Jośe      Cuervo  N 78'.


function RetiraEspacosExtrasM(Nome: String; NumEspacos: Integer): String;
var
    I : Integer;
begin
   for I := 0 to NumEspacos - 1 do
       Nome := StringReplace(Nome, '  ', ' ', [rfReplaceAll]);
   Result := Nome;
end;