[link-oln]

Доброго времени суток!
Помогите пожалуйста решить следующую проблему:
Мне нужно чтобы при одном условии из Edit'а удалялся последний символ, но у меня процедура Delete удаляет всё что только можно но не его! У меня это выглядит вот так:

Код:

procedure TForm1.EditChange(Sender: TObject);
begin
DelOp := Edit.Text;
if copy(Edit.Text, length(Edit.Text), 1) = '+' then
  delete(DelOp, length(DelOp), 1);
Edit.Text := DelOp;
Edit.SelStart := lenght(delOp);
end;

Что не так?