begin
    List1:=TStringList.Create;
    List1.LoadFromFile('d:\!D7\!import_pars\SMImportDocs.log');
       for t:=1  to List1.count-1 do begin
        Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        if   Length(List1.Strings[t]) <> 0 then begin
            if   pos('Очистили',List1.Strings[t] ) =0 then begin
                  if   pos('select error_value',List1.Strings[t] ) =0 then begin
                       if   pos('Выполнили xls.LoadFromStream(fexe,true)',List1.Strings[t] ) =0 then begin
                              n:=  copy(List1.Strings[t],0,19);
                              m:=  copy(List1.Strings[t],22,150);
                               Memo2.Lines.Add (n+'_'+ m);
                                      pFIBQuery1.SQL.Clear;
                                      pFIBQuery1.SQL.Add('insert into IMPORT_TRACE (LOG_TIME,LOG,KIND) values (:LOG_TIME,:LOG,:KIND)');
                                      pFIBTransaction1.StartTransaction;
                                      pFIBQuery1.ParamByName('LOG_TIME').AsString:= m;
                                      pFIBQuery1.ParamByName('LOG').aSDateTime:= StrToDateTime(n);
                                      pFIBQuery1.ParamByName('KIND').Value:= 42;
                                      pFIBQuery1.ExecQuery();
                                      pFIBTransaction1.Commit;
                                        end;
                                                  end;
                                                            end;
                                                                        end;
                                                                                                    end;
end;

CREATE TABLE IMPORT_TRACE (
    ID        INTEGER,
    LOG_TIME  TIMESTAMP,
    "LOG"     VARCHAR(512),
    KIND      INTEGER
);