[Black Raider]

можно и вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var st,st1:string;
i:integer;
begin
  st:=edit1.Text;
  for i:=1 to length(st) do
  begin
    if (
        (st[i]='a') or
        (st[i]='b') or
        (st[i]='d')
        ) then begin
       st1:=copy(st,0,i-1);
       st:=st1+copy(st,i+1,length(st));
       st1:='';
    end;
    label1.Caption:=st;
  end;
end;