Foros Club Delphi - Delphi y Servicios

Saludos,

Yo he creado un servicio con Delphi 7 el cual me actualiza unos campos de una tabla en SQL y elimina ese registro de otra tabla en Oracle, el punto es que la funcion esta bien , pero cuando la implemente en el servicio no se ejecuta completa, apenas busca en una tabla y se detiene es como si el timpo de ejecucion parametrizado es muy corto..lo que quiero es saber como puedo hacer que si mi consulta es un poco larga el servicio pueda esperar hasta que esta termine....
aqui una puestra de lo que yo he realizado...

Código Delphi [-]implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  tServicesBar.Controller(CtrlCode);
end;

function TtServicesBar.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
 
procedure TtServicesBar.tEjecuteTimer(Sender: TObject);
Begin
  {aqui mi consulta }
end;

procedure TtServicesBar.ServiceStart(Sender: TService;
var 
  Started: Boolean);
begin
  tEjecute.Enabled := True;
end;

procedure TtServicesBar.ServiceExecute(Sender: TService);
begin
  tEjecute.Enabled := True;
  While not Self.Terminated do
    ServiceThread.ProcessRequests(True);// wait for termination
  tEjecute.Enabled := False;
end;

procedure TtServicesBar.ServiceStop(Sender: TService;
var 
  Stopped: Boolean);
Begin
  tEjecute.Enabled := False;
end;