Вывод строк

[SpyCrypt]

допустим ввожу я слово надо вывести строки в которых это слово встречается. Выводится. Но почему то каждая строка по 2 раза.

begin
Memo4.Clear;
n:=length(edit2.Text);
for i:=0 to Memo2.Lines.Count-1 do
begin
s:=Memo2.Lines[i];
if Length(s)>0 then
begin
for k:=1 to length(s) do begin
j:=k;
while j<=length(s) do begin
c:=copy(s,j,n);
if c=edit2.text then crypts:=s ;
j:=j+n;
end;
end;
end;
memo4.lines.Add(crypts);
end;
end;

[Dark_Spirit]

begin
 Memo4.Clear;
 n:=length(edit2.Text);
 for i:=0 to Memo2.Lines.Count-1 do
 begin
 s:=Memo2.Lines[i];
 if Length(s)>0 then
 begin
 for k:=1 to length(s) do begin
 j:=k;
 while j<=length(s) do begin
 c:=copy(s,j,n);
 if c=edit2.text then crypts:=s ;
 j:=j+n;
 end;
 end;
 end;
 memo4.lines.Add(crypts);
 end;
 end;

а если переделать так:

 Memo4.Clear;
 if length(trim(edit2.text))<>0
  then
   begin
    for i:=0 to Memo2.Lines.Count-1 do
     if pos(edit2.text, Memo2.Lines[i])<>0
      then memo4.lines.add(memo2.lines[i]);
   end;

[phomm]

настоятельно : пройдитесь трассировкой(F7) !
если не поможет - то весь код проектом в студию
по данному алгоритму у меня вопросов не возникло, но в уме трассировать как-то не торт, так что могу и ошибиться

есть мысль - не правильно поставлен Add среди end'ов, но проверять - Вам

[chertovich]

Нужно разбивать сложный код на подпрограммы, где каждая подпрограммы выполяет свою задачу. После этого легко будет отладить что и где не так