Delphi - borrar ultimo caracter Edit

Hola colegas, quisiera saber como eliminar el ultimo caracter de un edit, o sea que cada vez que de click clic en un boton me vaya eliminando el ultimo caracter........espero puedan ayudarme...
gracias de antemano..
salu2 a todos

Pon esto en el código del botón, cambiando Edit1.Text por el Edit en cuestión. Creo que funciona.

Edit1.Text:=Copy (Edit1.Text, 0, Length(Edit1.Text)-1);

Saludos.

grasias me funsiono :)