[v1s2222]

Ну а что не получилось то?

Код:

var s: string; i: integer;
begin
...
  for i:=1 to length(s) do
    if(s[i] = 'b') or (s[i] = 'c') or (s[i] = 'd') then
      Delete(S, i, 1);

  ShowMessage(S);

Как-то так...
Или как написали выше (только функция stringReplace не паскалевская, поэтому думаю она не годиться, но всеже:

Код:

var s:string;
begin
...
  StringReplace(S, 'b', '', [rfReplaceAll]);
  StringReplace(S, 'c', '', [rfReplaceAll]);
  StringReplace(S, 'd', '', [rfReplaceAll]);

  ShowMessage(S);