[Bars1992]

PHP код:

Var
s:tstringlist;
i:integer;
begin
s:=TstringList.create;
S.LoadFromFile(FileName);
for i:=s.count-1 downto 0 do
 if pos(Edit1.text,s[i])=0 then s.delete(i);
memo1.lines.assign(s);
s.free;
end;