uses Math;

procedure TForm1.Button1Click(Sender: TObject); // Посчитать количество символов в предыдущих числах, до числа 'm' включительно
var
m,m2,L,i,Nm,N1,n: integer;
Lc0,Lc1: extended;
Sm,Sn1: string;
begin
 m := 11; // Любое целое число кроме 0

 Lc0 := -((Abs(m)/m)-1)/2; // 1-если "m" отрицательное, иначе 0
 m2 := Abs(m); // Любое положительное целое число
 L := IntToStr(m2).Length; // Количество символов в числе "m2" [промежутки: 1=(0..9), 2=(10..99), 3=(100..999)]

 Sm := '1';
 Sn1 := '0';

 // Добавить (L-1) символов в строки "Sm","Sn1"
 for i := 0 to L-2 do
 begin
  Sm := Sm+'0'; // 1000....
  Sn1 := '1'+Sn1; // 1110....
 end;

 Sn1[1] := '0'; // Убрать первую цифру из числа

 // Перевести строки в числа
 Lc1 := -Floor((L-2)/L); // 1-если "L"=1, иначе 0
 Nm := Floor(StrToInt(Sm)-Lc1); // Минимальное значение промежутка "L"
 N1 := StrToInt(Sn1); // Взаимосвязь между "L" и количеством единиц, с нулем на конце (1=0, 2=10, 3=110, 4=1110)

 n := Floor(Nm*(L-1)-N1+(m2-Nm+1)*L+m2*Lc0); // Количество символов в предыдущих числах, до числа 'm' включительно (с учетом нуля)

 Form1.Caption := 'Число: '+inttostr(m)+' Количество символов: '+inttostr(n);
end;