[Janom]

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:String;
begin
//Так только если плюс последний символ:
//если в конце строки два или более плюса,
//то удалит только один последний из-за этого
//процедуру надо будет вызывать несколько раз.
if Edit1.Text<>'' then
  begin
    s:='';
    if (Edit1.Text[Length(Edit1.Text)]='+') then
      begin
        For i:= 1 to Length(Edit1.Text)-1 do s:=s+Edit1.Text[i];
        Edit1.Text:=s;
      end;
  end;
//Так если в строке вообще есть плюсы:
{
if Edit1.Text<>'' then
  begin
    s:='';
    For i:= 1 to Length(Edit1.Text) do
        if Edit1.Text[i]<>'+' then s:=s+Edit1.Text[i];
    Edit1.Text:=s;
  end;
}
end;