Błąd w pętli

program test;

uses atari, crt;

var
    tmpByte : byte;
    tmpByte2: byte;
    tmpByte3: byte;
    data    : string;

begin

    data := ':delysio!~delysio@130xe.atari.org.pl PRIVMSG testttt :TESTINK';
    tmpByte := 38;

    for tmpByte2 := tmpByte + 9 to 100 do
    begin
        if data[tmpByte2] = ':' then break
    end;

    Writeln('tmpByte2 = ', tmpByte2); // Tu jest zero - chyba źle ;)

    for tmpByte2 := (tmpByte + 9) to 100 do
    begin
        Inc(tmpByte3); // W sumie może tu być cokolwiek, byle coś było zamiast samego if then break
        if data[tmpByte2] = ':' then break
    end;

    Writeln('tmpByte2 = ', tmpByte2); // A tu jest tyle ile być powinno, czyli 52 :)

    repeat until keypressed;

end.