   merkezx:=0;
   strty2:=0;
   merkezy:=0;
   maxchk:=0;
   resimartis:=0;
   resimartismax:=0;
   maxmerkez:=0;
   i:=1;
   j:=1;
   for i:=1 to 320 do
   begin
      for j:=1 to 240 do
      begin
      if resimesik[i,j]=255 then
        begin
          for my:=1 to 20 do
          begin
            for mx:=1 to 40 do
            begin
              if resimesik[i+mx,j+my]=255 then
                resimmerkez[i,j]:=resimmerkez[i,j]+1;
            end;
          end;
          if maxmerkez<resimmerkez[i,j] then
          begin
            maxmerkez:=resimmerkez[i,j];
            merkezx:=i;
            merkezy:=j;
            maxchk:=1;
          end;
          if maxchk=1 then
          begin
            for mx:=1 to 40 do
            begin
              for my:=1 to 20 do
              begin
                if resimesik[i+mx+39,j+my]=255 then
                  resimartis:=resimartis+1;
              end;
              if resimartismax<resimartis then
              begin
                resimartismax:=resimartis;
                merkezx2:=i+mx+40;
                merkezy2:=j+20;
              end;
              if (mx=40) then
              begin
                image4.Canvas.Rectangle(merkezx,merkezy,merkezx2,merkezy2);
                strty2:=merkezx2+1;
                findnext(strty2,j);
                exit;
              end;
            end;
          end;
        end;
      end;
   end;

