Código Delphi [-]Formulario1.Edit1.Text:=copy(Formulario1.Edit1.Text,1,length(Formulario1.Edit1.Text)-1);
Formulario1.Edit1.Text:=copy(Formulario1.Edit1.Text,1,length(Formulario1.Edit1.Text)-1);