Nao sou muito bom em Threads, mas tente assim:
...
begin
// inherited; <-- Pode remover, Execute eh abstrato ;)
while not Terminated do
begin
try
Sleep(cIntgParams.Interval);
cIntgParams.LoadParams;
if FindFiles then
ProcessFiles;
finally
sFiles.Clear;
end;
end;
...
Se você não usa FreeOnTerminate como True, faça o seguinte:
...
destructor TFileProcessing.Destroy;
begin
// Nao tem problemas, eh para evitar AV.
end;
...
Se nao funfar, monitore com o debugger em qual etapa esta travando.
--
Silvio Clécio
2010/1/21 Willian Jhonnes L. dos Santos <willianjhon...@yahoo.com.br>
>
>
>
> Ah, sim, claro! Esqueci de colocar o construtor da Thread!
>
> []'s
>
> constructor TFileProcessing.Initialize;
> begin
> Create(False);
> FreeOnTerminate := True;
> Priority := tpLowest;
> Execute;
>
> end;
>
> --
>
> ---------------------------------------------------
> Att.:
> Willian Jhonnes L. dos Santos
> Analista/Desenvolvedor Object/Free Pascal
> willianjhon...@yahoo.com.br
> ---------------------------------------------------
> Seja livre. Use Linux.
> Grupo de Usuários GNU/Linux de São José dos Pinhais
> Linux user number 449753
> ---------------------------------------------------
> Powered by Slackware Linux 12.2
> Kernel 2.6.27.8-i686-core2
> ---------------------------------------------------
