Konstigt problem

Förstår inte varför men om jag tar bort raden med showmessage() så funkar inte denna funktionen, svaret blir då helt fel. Hur kan det komma sig när den raden inte gör någonting?

function OctStrToInt(const s : string) : integer;
var
  n, i, k : integer;
begin

  for i := 1 to Length(s) do
  begin
    showmessage(Copy(S,i,1) + ' ' + IntToStr(StrToInt(Copy(S,i,1))));  // <------- DENNA

    n := StrToInt(Copy(S,i,1));

    if((Ord(s[i])>=Ord('0')) and (Ord(s[i])<=Ord('7'))) then
    begin
      k := k + n * round( Power(8,Length(s)-i) );
    end
    else begin
      Result := 0;
      exit;
    end;

  end;

  Result := k;

end;