[lmikle]

Ну типа так:

Код:

function RandomStringReplace(S : String; Rpl : String) : String;
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := Rpl;

  Result := StringReplace(S, sl[0],sl[Random(sl.Count-1)+1],,[rfreplaceall]);

  sl.Free;
end;