Código Delphi [-] Label1.Caption:=Copy(Cadena,1,Length(Cadena) -4)
Label1.Caption:=Copy(Cadena,1,Length(Cadena) -4)