begin
                           db3:=TpFIBDatabase.Create(nil);
                            trans3:= TpFIBTransaction.Create(nil);
                            query3:= TpFIBQuery.Create(nil);
                            db3.connectparams.Username:='SYSDBA';
                            db3.connectparams.Password:='masterkey';
                            db3.DatabaseName:='d:\fdbase\fb_log_database.fdb';
                            db3.DefaultUpdateTransaction:=trans3;
                            db3.LibraryName:= 'fbclient.dll';
                            trans3.DefaultDatabase:=db3;
                            query3.Database:=db3;
                            query3.Transaction:=trans3;
                            db3.connected:=True;
                                FindClose(tsr1);
                                query3.SQL.Clear;
                                query3.SQL.Add('insert into IMPORT_EXISTS_LOG (WRITE_TIME,KIND,USER_ID) values (current_timestamp,:KIND,:USER_ID)');
                                trans3.StartTransaction;
                                query3.ParamByName('KIND').Value:= Fkind;
                                query3.ParamByName('USER_ID').Value:= Fuser;
                                query3.ExecQuery();
                                trans3.Commit;
                                trans3.Free;
                                query3.Free;
                                 db3.connected:=False;
                                db3.Close;
                                  db3.Free;
                                    end;

begin
    memo1.Lines.Clear;
    sections := TStringList.Create;
    try
      fini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');
      tpath3 := ExtractFilepath(Application.ExeName);
      fini.ReadSections(sections);
      for i:= 0 to pred(sections.Count) do
      begin
        tpath1:=  fini.ReadString(sections[i],'source','');
        tpath2:=  fini.ReadString(sections[i],'target','');
        tkind:=  fini.ReadString(sections[i],'kind','');
        tlog:=  fini.ReadString(sections[i],'log','');
        texe:=  fini.ReadString(sections[i],'exe','');
        tuser:=  fini.ReadString(sections[i],'user','');
        memo1.Lines.Add(tpath1);
        memo1.Lines.Add(tpath2);
        memo1.Lines.Add(tkind);
        memo1.Lines.Add(tlog);
        memo1.Lines.Add(texe);
        memo1.Lines.Add(tuser);
         [color=orange]AddLog(Format(rsOldAffinityMaskD, [WCThread1.AffinityMask])); //wadman
        WCThread1.AffinityMask := 2;//wadman
        AddLog(Format(rsNewAffinityMaskD, [WCThread1.AffinityMask]));//wadman
        AddLog(Format(rsProcessorCountD, [WCThread1.ProcessorCount]));//wadman
        MyThread:= TMyThread.Create(True,tpath1,tpath2,tkind,tlog,texe,tuser);
        AddLog(Format(rsSS, [MyThread, rsStart]));//wadman[/color]
      end;
    finally
      FreeAndNil(sections);
    end;
end;