Удаление последнего символа
begin
s:=Edit1.Text; присваиваем строковой переменной .Эдит1
y:=Length(s); присваиваем переменной длинну строки S
delete(s,y,1); удаляем из (строки S, колво символов,1 символ)
Edit1.Text:=s; Эдит 1 присваиваем значение переменной S
end;