[Страдалецъ]

А что это за номер у вас такой из 14 цифр? У вас же в первоначальном коде десятизначный номер, а в финале он вдруг вырос. Для форматирования телефона лучше использовать функцию, которая позволяет менять формат представления номера, без изменения кода:

Код:

function PhoneFormat(Phone: String; Mask: String): String;
begin
  Result := '';
  var n := 0;
  for var i := 1 to Length(Mask)
  do if Mask[i] = 'd'
     then begin
          Inc(n);
          if n > Length(Phone) then Exit;
          Result := Result + Phone[n]
          end
     else Result := Result + Mask[i];
end;
...
Caption := PhoneFormat('9109884668', '+7(ddd)ddd-dd-dd')