Zdravím.
Poradte jak na to, kde dělam kopanec.
Mam text soubor, kde jsou pod sebou stovky IP adres.
Potřebuj najit tu co zadam do editu.

for i:=0 to Lines.Count-1 do
begin
    if pos(form2.edit1.text,Lines[i])>0 then Form2.Zapis;
end;

Problem je že když zadam třeba 97.11.44.1 tak mi to vypiše i 97.11.44.171,97.11.44.171,97.11.44.172 atd

Tak jsem to zkusil takto

for i:=0 to Lines.Count-1 do
begin
    if pos(form2.edit1.text,Lines[i])>0 then
    begin
        a:=length(form2.edit1.text)+1;
        znak := copy(a2,a,1);
        if znak <> '' then continue;
        Form2.Zapis;
    end;
end;

Nějak to nefunguje.
I když proměnna znak je 1 až 9 tak if znak <> '' then continue; nereaguje.
Proč.