4:   begin
             c:=EditSzukaj.Text;
             for i := 0 to length(tab) do
               if tab[i].Dodatki = c then
                  begin
                    setlength(tab2, length(tab2)+1);
                    tab2[length(tab2)-1]:=tab[i];
                    licznik:=licznik+1;
                  end;
             queryperformancecounter(endtime);
              elapsedseconds:=(endtime - starttime)/frequency;
              form2.Label4.Caption:=floattostr(elapsedseconds);
              form2.Label2.Caption:='Sort nie byl wykonywany';
              form2.rysuj2;
              Form2.show;
              setlength(tab2,0);
          end;