Fórum Onde está o erro? (thread) #264194

Pessoal onde está o erro? Antes, no final da procedure btconcluirClick eu chamava o procedimento impressaodecupom que usa impressão direta (writeln) funcionava mto bem só que a tela travava e não fechava enquanto o cupom era impresso totalmente, então estou tentando usar thread mas não estou conseguindo. Olhe o que fiz e me ajudem, por favor. :oops:

[color=darkblue:6caee06216]type
T2 = class(TThread)
private
procedure Execute; override;
procedure chamar_imp;
end; { of class declaration }

procedure Tfrmconcluiravista.btconcluirClick(Sender: TObject);
begin
//registra a venda
(...)
//associa os itens da cesta à venda
(...)
//e já aproveita para alterar o estoque
(...)
//dá baixa no caixa
(...)
//solicita a impressao de cupom
t2.Create(false); //impressão de cupom com thread
close;
end;

procedure t2.chamar_imp;
begin
//a linha abaixo que imprime o cupom
manip_reg.impressaodecupom(codvenda,dados.tbconfiguracoeslargura_cupom.Value,qtdeimpressao);
end;

procedure T2.Execute;
begin
Synchronize(chamar_imp);
end;[/color:6caee06216]

Da maneira que está acima o cupom não está sendo impresso. (obs.: coloquei um showmessage(´qualquercoisa´) em chamar_imp e a mensagem ´qualquercoisa´ foi exibida, ou seja ele está indo até este procedimento.
Agradeço qualquer ajuda.