Mam tu kod który sprawdza czy w TStringList znajduje się podany element a jeśli nie to go dodaje. Lecz niektóre elementy dodaje parę razy. Czy może wie ktoś gdzie popełniłem błąd???
procedure TOkno.dodajGrupe(s:string);
var i : integer;
tak : boolean;
begin
tak := (ListaGrup.Count = 0);
for i := 0 to ListaGrup.Count -1 do
begin
if s <> Lowercase(ListaGrup[i]) then
begin
tak := true;
break;
end else tak := false;
end;
if tak then
Listagrup.Add(S);
end;