[Black Raider]

Код:

if trim(edit1.text)[length(trim(edit1.Text))]='+' then
edit1.Text:=copy(edit1.Text,0,length(trim(edit1.Text))-1);