[dr. F.I.N.]

Win10 x32, D7, Excel 2007

Код:

var
...
  s: WideString;
  i: Integer;
begin
...
  s := Sheet.Cells[1, 1]; {значение в ячейке 'Внешний d=12, внутренний d=8'}
  i := Pos('d=', s);
  while i > 0 do
  begin
    s[i] := WideChar(216);
    i := Pos('d=', s);
  end;
  Sheet.Cells[1, 1] := s; {значение в ячейке стало 'Внешний Ø=12, внутренний Ø=8'}
...
end;