Eu criaria as instâncias dessas classes dentro do Excute da Thread: var conexao: TConnection; ... begin conexao := TConnection.Create(nil); ... while not (Self.Terminated) do begin
end; end; [As partes desta mensagem que não continham texto foram removidas]