Como montar essa consulta?

procedure TFrmRelRequerMatricula_ModII_2.BtnImprimeClick(Sender: TObject);
var
i, j : integer;
aux, mensagem : string;
DEF_AUDITIVA, DEF_MULTIPLA, DEF_MENTAL, DEF_FISICA, DEF_VISUAL, CONDUTAS_TIPICAS, SINDROME, SUPERDOTADO : string;

begin
ppDoencas.Caption := '';
i := 0;
if IBQryAlunoDEF_AUDITIVA.Value = 'True' then
begin
DEF_AUDITIVA := 'Deficiência Auditiva';
i := i + 1;
end
else
DEF_AUDITIVA := '';

if IBQryAlunoDEF_MULTIPLA.Value = 'True' then
begin
DEF_MULTIPLA := 'Deficiência Múltipla';
i := i + 1;
end
else
DEF_MULTIPLA := '';

if IBQryAlunoDEF_MENTAL.Value = 'True' then
begin
DEF_MENTAL := 'Deficiência Mental';
i := i + 1;
end
else
DEF_MENTAL := '';

if IBQryAlunoDEF_FISICA.Value = 'True' then
begin
DEF_FISICA := 'Deficiência Física';
i := i + 1;
end
else
DEF_FISICA := '';

if IBQryAlunoDEF_VISUAL.Value = 'True' then
begin
DEF_VISUAL := 'Deficiência Visual';
i := i + 1;
end
else
DEF_VISUAL := '';

if IBQryAlunoCONDUTAS_TIPICAS.Value = 'True' then
begin
CONDUTAS_TIPICAS := 'Condutas Típicas';
i := i + 1;
end
else
CONDUTAS_TIPICAS := '';

if IBQryAlunoSINDROME.Value = 'True' then
begin
SINDROME := 'Sindrome';
i := i + 1;
end
else
SINDROME := '';

if IBQryAlunoSUPERDOTADO.Value = 'True' then
begin
SUPERDOTADO := 'Superdotado';
i := i + 1;
end
else
SUPERDOTADO := '';

case i of
1 : aux := '';
2 : aux := ' e ';
else
aux := ', ';
end;

for j := 1 to i do begin

if (j = i-1) and (i > 2) then
aux := ' e ';

mensagem := DEF_AUDITIVA+aux + DEF_MULTIPLA+aux + DEF_MENTAL+aux + DEF_FISICA+aux + DEF_VISUAL+aux +
CONDUTAS_TIPICAS+aux + SINDROME+aux + SUPERDOTADO;
end;

if i = 1 then
begin
ppDoencas.Caption := mensagem;
end
else
ppDoencas.Caption := copy(mensagem,1,(length(mensagem)-2));

ppReport1.Print;
close;
end;