Ayuda en If Then Else

[ekbadel]

Hola estimados Compañeros bien les planteo el Siguiente Problema tengo una Consulta lanzada a la Bd de la Tabla de Pagos Bien lo siguiente es cuando hago la comparacion de Resultados:

Código Delphi [-]
 
If (qryPagosIdTipPag2.Value = 1)  Then
                qrPro0.memReportePagos.Value   := StrToFloat(lo_s)
            else If (qryPagosIdTipPag2.Value = 2)  Then
                     qrPro0.memReportePagos2.Value   := StrToFloat(lo_s)
            else If (qryPagosIdTipPag2.Value = 3)  Then
                     qrPro0.memReportePagos3.Value   := StrToFloat(lo_s)
            else If (qryPagosIdTipPag2.Value = 4)  Then
                     qrPro0.memReportePagos4.Value   := StrToFloat(lo_s)
            else If (qryPagosIdTipPag2.Value = 5)  Then
                     qrPro0.memReporteServFac.Value  := StrToFloat(lo_s);
            end;
            qrPro0.memReporte.Post;

Bien el problema es que que el Resultado idTipPag viene siendo cualquiera de los 5 a la misma vez y eso me manda por default al Ultimo resultado en dado caso que exista mas de un tipo de pago del Cliente.

Mi pregunta es Puedo hacer un And de resultado

(sdQuery.Value = 1 and sqQuery = 2 ad..........)

Se puede o alguna recomendacion de como Hacerlo Gracias..