Limpiar caracteres y dar formato a un IBAN

[[ElKurgan]]

Código Delphi [-]
function FormatearCuenta(const s: string): string;
begin
  // Espero siempre 24 dígitos
  If length(s) <> 24 then
    Result := ''
  else
    Result := 
      Copy(s, 1, 4) + ' ' + 
      Copy(s, 5, 4) + ' ' 
      Copy(s, 9, 4) + ' ' 
      Copy(s, 13, 4) + ' ' 
      Copy(s, 17, 4) + ' ' 
      Copy(s, 21, 4) ; 
end;

Por supuesto, hay formas más eficientes de hacerlo, pero como idea vale

Saludos

[Delphitest]

Muchas gracias, así da gusto

He añadido los + que faltan porque me daba error pero una vez puestos todo OK

Ahora que ya tengo el formato deseado quiero rizar el rizo, jejejej

Abro otro hilo para no mezclar preguntas diferentes.

Gracias de nuevo a todos por vuestra ayuda.