[Alegun]

Правда не удалением, а копированием

Код:

uses 
 StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 b: integer;
begin
 s:= Edit1.Text;
 b:= pos(#43, s);
  if b > 0 then
   Edit2.Text:= Copy(s, b + 1, Length(s)) else
   Edit2.Text:= {Ansi}ReverseString(s);
end;