Delphi - ayuda please ,,, ,,,,,

hola a todos ,,,, necesito ayuda con algo estoy programando una calculadora pero no se como hacer algo ,,, por ejemplo tengo un edit y tengo el numero 99999 lo que no se es como hacer que pulsando un boton se valla borrando numero por numero hasta que quede en blanco ,,,, agradeceria a quien me ayude please...

El siguiente procedimiento borra los números de un edit empezando por la derecha:

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=Copy(Edit1.Text, 0,Length(Edit1.Text)-1);
end;

El que borra por la izquierda te lo dejo a ti :-)

Saludos.