procedure TTraceService.SetServiceStartOptions;
var
 s:string;
begin
  Action := isc_action_svc_trace_start; //isc_action_svc_trace_start
  ServiceStartParams  := Char(isc_action_svc_trace_start);
  ServiceStartAddParam('my session', isc_spb_trc_name); 
  s:='<database d:\bases\blablabla.fdb> enabled true include_filter %(INSERT|UPDATE|DELETE)% log_statement_finish true log_procedure_finish true log_trigger_finish true print_plan true print_perf true time_threshold 0  </database>';

  ServiceStartAddParam(s, isc_spb_trc_cfg);
end;

   
   Skiped 

   trace.attach;
   Trace.ServiceStart;
   while not trace.eof do
   begin 
           log:=trace.GetNextLine;
   end;