можно так:
Код:
procedure ExchangeAll(L: TStringList; a: array of string; b: string);
var i: integer;
begin
for i := 0 to high(a) do
Exchange(L, a[i], b);
end;
...
ExchangeAll(StringList, ['a', 'b', 'c'], '*');
а Exchange проще сделать StringReplace-ом