//wczytanie z bazy przeklenstw
Baza1 := TStringList.Create;
Przeklenstwa := TStringList.Create;
Baza1.LoadFromFile('plugins\baza_przeklenstw.txt');
for i := 0 to Baza1.Count -1 do begin
  Explode(Baza1[i], '|', Przeklenstwa);
end;

//wczytanie z bazy lancuszkow
Baza2 := TStringList.Create;
Lancuszki := TStringList.Create;
Baza2.LoadFromFile('plugins\baza_lancuszkow.txt');
for i := 0 to Baza2.Count -1 do begin
  Explode(Baza2[i], '|', Lancuszki);
end;

case filtr of
0:  begin
    for i := 0 to k-1 do begin
    for j := 0 to Przeklenstwa.Count-1 do
      begin
      if tablica[i] = Przeklenstwa[j] then
        result := result + Przeklenstwa[j] + ' ';
      end;
      continue;
    end;
    end;