При выполнении процедуры в потоке вылетает багрепорт access violation строка callwindowproc

procedure tmythread2.Execute;
var c,dl_sync,i,j,x,xx,a,k_bufs,gg,gg2,usl:integer;
 
    buf1,buf2:string;
    flag1,flag2,flag3:boolean;
begin
 
form1.RichEdittext.SelStart:=0;
form1.RichEdittext.SelLength:=DL_rich;
form1.RichEdittext.SelAttributes.Color:=clblack;
form1.richedittext.SelAttributes.Style := [];
 
     c:=form1.combobox2.ItemIndex;
     case c of
              0: dl_sync:=16;
              1: dl_sync:=32;
              2: dl_sync:=64;
              3: dl_sync:=128;
              4: dl_sync:=6;
              5: dl_sync:=4;
              6: dl_sync:=2;
     end;
     i:=0; j:=-1;  x:=0;xx:=0; buf1:=''; buf2:=''; k_bufs:=0;  flag1:=false;  flag2:=false; flag3:=false; ext:=False; a:=0;
      gg:=0; gg2:=0; usl:=0;
     while (i<=dl_rich)and(flag3=False)and(ext=false) do
     begin
           inc(i);
           form1.RichEditText.HideSelection:=False;
           form1.RichEditText.SelStart:=i;
                if (x<dl_sync) then
                begin
                    inc(x);
                    buf1:=buf1+form1.richedittext.text[i];
                end;
                if (x=dl_sync)and(flag1=false) then
                begin
                      j:=i; 
                      inc(i);
                      form1.RichEditText.SelStart:=i;
                      flag1:=true;     //   можно заполнять второй буфер
                end;
     with form1.progressbar1 do
     begin
        form1.ProgressBar1.Min:=0;
        form1.ProgressBar1.Max:=dl_rich;
           while (j<=dl_rich)and(flag1=true)and(i<=dl_rich)and(ext=false) do
           begin
                inc(j);
                form1.ProgressBar1.Position:=j;
                form1.RichEditText.SelStart:=j;
                if ((form1.richedittext.text[j]=#10)or(form1.richedittext.text[j]=#13)) then
                begin
                     ext:=true;
                end else
                begin
                      if (j<=dl_rich)and(i<=dl_rich)and(ext=false) then
                      begin
                if (xx<dl_sync)and(flag1=true) then
                begin
                      inc(xx);
                      buf2:=buf2+form1.richedittext.text[j];
                end;
                if (xx=dl_sync)and(flag2=false) then
                begin
                      flag2:=true;// можно сравнивать
                end;
                  if (xx=dl_sync)and(x=dl_sync)  then
                  begin
                      while a<dl_sync do
                      begin
                            inc(a);   
                            if buf1[a]=buf2[a] then
                            begin
                                inc(k_bufs);  
                            end;
                      end;
                      gg:=round((k_bufs/dl_sync)*100);  //кол-во верных симв
                      gg2:=100-gg; //% oshibok
                      usl:=strtoint(form1.edit2.text); //%
                      if usl>=gg2 then
                      begin
                            k_bufs:=0;                                         //   заполнил второе и последующие
                            //showmessage('ebat zapolnyau');
                            form1.RichEdittext.SelStart:=j-dl_sync;
                            form1.RichEdittext.SelLength:=dl_sync;
                            form1.RichEdittext.SelAttributes.Color:=clred;
                            form1.richedittext.SelAttributes.Style := form1.RichEdittext.SelAttributes.Style+[fsBold];
                       ////////////////////////////
                                  if flag3=false then                                   ///заполнил первое попадание
                                  begin
                                       form1.RichEdittext.SelStart:=i-dl_sync-1;
                                     form1.RichEdittext.SelLength:=dl_sync;            
                                     form1.RichEdittext.SelAttributes.Color:=clred;
                                     form1.richedittext.SelAttributes.Style := form1.RichEdittext.SelAttributes.Style+[fsBold];
                                  end;
                                flag3:=True; //мне хватит
                            xx:=0;  buf2:='';
                      end else
                      begin
                            //inc(j);
                            k_bufs:=0;
                            j:=j-dl_sync+1;
                            buf2:=''; xx:=0; //flag3:=true;//net sovpadenii s buf2
                      end;
                      a:=0;  //k_bufs:=0;
                  end;//if xx and x
                 end; // j<=dl-rich
              end; //if flag3
           end; //while j
           if j>=dl_rich then
           begin
                j:=i+dl_sync;
                i:=i-dl_sync;
                x:=0;   xx:=0;        buf1:='';         buf2:='';       flag1:=False;
           end;
        if ext=true then   //(i>=dl_rich)and(j>=dl_rich) then
        begin
           mythread2.Terminate;
           showmessage('файл просканирован');
        end;
     end; //progbar
  end; 
end; //procedure