Я бы так написал:
Код
k1:=K/100;{чтоб много раз в цикле не считать}
S:=D;
N:=0;
D:=D shl 1;
while D>S do
   begin
      S:=S+S*k1;
      Inc(N);
   end;

А с помощью формулы можно без цикла:
Код
N:=Ln(D)/ln(1+K)