Fórum Acess Violation ao informar SQLConnection na Query em Runtime. #604035

constructor TPessoa.Create(Conexao: TConexao);
begin
{ No create é passada a conection das Qrys }
Qry             := TSQLQuery.Create(Nil);
QryPesquisa     := TSQLQuery.Create(Nil);

QryPesquisa.SQLConnection := Conexao.Connection;
Qry.SQLConnection         := Conexao.Connection;

DsPesquisa := TDataSource.Create(Nil);
dsCli := TDatasource.Create(Nil);

DsPesquisa.DataSet := QryPesquisa;
DsCli.DataSet      := Qry;
end;