Código Delphi
[-]
function FormatearCuenta(const s: string): string;
begin
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