Поиск информации по всем файлам в каталоге

[ИгорьFM]

Есть задача
Программе указываешь каталог с файлами ( там могут быть xls, doc, docx, xlsx, ACCDB и MDB, также могут лежать базы mysql, sql и т.п.)
допустим в одном файле (таблице) найдена информация
файл1:
Иванов Иван Иванович 79996665555 ул.Гагарина 1
во втором файле есть такая строка
жигули х555хх777 2004 г.в.
третий файл содержит такую строку
12.04.2016 16:00 пр. Коммунистический 44 х555хх777 превышение скорости
четвертый
79996665555 Генадий ул.Гагарина 1 3 порции пиццы
и т.п.

надо по запросу в поиске получить всю информацию
например задал я Иванов
программа вывела мне
Иванов Иван Иванович машина жигули х555хх777 2004 г.в Часто бывает по адресу ул.Гагарина 1 что то в этом роде

Вопрос №1 какой алгоритм лучше использовать для реализации поиска
прочитать все файлы и записать в одну таблицу (проблема количество полей будет не совпадать) и потом каким оброзов вытащить всю информацию. Либо создовать для каждого файла таблицу и потом из кучи таблиц искать информацию

Вопрос№2 сам поиск допустим я ввел Иванов нашел в первом файле строки с таким совпадением записал куда-нибудь себе до окончания поиска и пошел дальше по всем файлам
записал все строки по первичному запросу
как организовать поиск по данным из полученных строк


сам код во втором сообщении




Сильно не пинайте я ток разбираюсь в программирование
\Если есть какието мысли пните меня в какую сторону идти и что использовать
Зарание спасибо

[ИгорьFM]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, Gauges,ComObj, Grids, OleServer, ExcelXP,
  DB, DBGrids, ADODB, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Gauge1: TGauge;
    StringGrid1: TStringGrid;
    ExcelApplication1: TExcelApplication;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure GetAllFiles( Path: string; Lb: TStringList);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <>  '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;


p