[W1ndow]

На вот держи рабочий код. Тут два эдита, в одном пишешь исходную строку, а во втором символы которые надо удалить из первого эдита, писать без разделителя. Код простенький, думаю ты и сам разберёшься что за что отвечает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s,t: string; i: integer; c: char;
begin
  t:=Edit1.Text; s:=Edit2.Text;
  For i:=1 to Length(t) div 2 do begin
    c:=t[i];
    t[i]:=t[Length(t)-i+1];
    t[Length(t)-i+1]:=c;
  end;
  For i:=1 to Length(s) do
    repeat
      if Pos(s[i],t) > 0 then
        Delete(t,Pos(s[i],t),1);
    until Pos(s[i],t)=0;
  Edit1.Text:=t;
end;