var
 n,i:integer;
 f:TextFile;
 Ftext:string;
begin
for n := 0 to FileListBox1.Items.count-1  do
  begin
     AssignFile(f,FileListBox1.Items.Strings[n]);
       Reset(f);
    ftext:='';
    while not Eoln(f) do
    begin
      Read(f, Ftext);   // чтение и отображение одного символа
    end;
     if  pos(Edit1.Text,Ftext)<>0 then
     begin
        memo1.Lines.Add(FileListBox1.Items.Strings[n]);
     end;
     closefile(f);