[darkbits]

me da error

Código Delphi [-]
var cadena :string;
begin
cadena:='01159144559423';
cadena :=  '00' + Copy (cadena,4, lenght(cadena))
end;