Problema do Thread

Delphi

14/04/2016

Boa Noite pessoal.
Tenho uma aplicação que usa um thread em Delphi. O problema é que no meu notebook windows 7 64 funciona perfeitamente, já em um windows server 64 nao funciona, em alguns windows 7 também não funciona. O que ocorrer é que ao clicar no botão onde chama o procedimento vinculado a thread não acontece absolutamente nada...
Conto muito com a ajuda de vocês, muito Obrigado.

Código do botao..

var th: tbkp;
begin
todos:= 'todos';
th:= Tbkp.create(false);
th.Resume;
end;


Thread

procedure tbkp.execute;
begin
frmsincronizaDados.usuarios;

inherited;
with frmsincronizaDados do
begin

if ((ccli.Checked = true) and (todos = 'todos')) or (todos = 'cliente') then
begin
Label2.Caption:= 'Sincronizando Clientes...';
cliente;
end;
if ((crec.Checked = true) and (todos = 'todos')) or (todos = 'receber') then
begin
Label2.Caption:= 'Sincronizando Contas a Receber...';
receber;
end;

if ((cpag.Checked = true) and (todos = 'todos')) or (todos = 'pagar') then
begin
Label2.Caption:= 'Sincronizando Contas a Pagar...';
pagar;

end;

if ((cprod.Checked = true) and (todos = 'todos')) or (todos = 'estoque') then
begin
Label2.Caption:= 'Sincronizando Estoque...';
produto;

end;

messagebox(handle,'Dados Sincronizados com Sucesso,','',MB_DEFBUTTON1+mb_ok+MB_ICONINFORMATION);
end;
Antonelly Silva

Antonelly Silva

Curtidas 0
POSTAR