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]

Responder a