[alexingor]

В TEdit через буфер обмена попадает строка, которая может содержать спецсимволы. Мне надо при выходе из эдита найти эти символы и заменить их другими, обычными. Раньше я делал это в VBA, все было достаточно просто. Здесь (в Delphi 7) все мои попытки наталкиваются на то, что передаваемые в параметры спецсимволы (a и b) показываются как пустые и не обрабатываются. При наличии хоть одного спецсимвола вся строка становится пустой .

Код:

function substitute(s:WideString; a,b: WideChar): WideString;
var
  found: boolean;
  i: integer;
  c: WideString;
begin
  found:=true;
  while found do begin
    found:=false;
    for i:=1 to Length(s) do begin
      c:=copy(s,i,1);
      if c=a then begin
        found:=true;
        s:=copy(s,1,i-1)+b+copy(s,i+1,1000);
      end;
    end;
  end;
  Result:=s;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s: WideString;
begin
  AlignEditTRA.Color:=cl3DLight;
  s:= Edit1.Text;
  s := substitute(s, WideChar(884), WideChar(''''));
  s := substitute(s, WideChar(305), WideChar('I');
...
  Edit1.Text:=s;
end;

Буду благодарен за любую идею, которая поможет в решении вопроса.
PS. Что такое гугль я знаю, и он уже в течение 2 часов закипает от моих запросов. Если пишу сюда - значит ответа не нашел.
PPS. Под "спецсимволами" я имею в виду символы, код которых больше 255.