Ayuda en If Then Else

[gerardus]

Seria más elegante y más claro:

var    
  i: integer;  
begin   
i :=  qryPagosIdTipPag2.Value ;
case i of     
  1: qrPro0.memReportePagos.Value   := StrToFloat(lo_s);     
  2: qrPro0.memReportePagos2.Value   := StrToFloat(lo_s)
  3: qrPro0.memReportePagos3.Value   := StrToFloat(lo_s)
  4: qrPro0.memReportePagos4.Value   := StrToFloat(lo_s)
  5: qrPro0.memReporteServFac.Value  := StrToFloat(lo_s); 
end; //case   
qrPro0.memReporte.Post;qrPro0.memReporte.Post;

Si el valor 1 y2 dan el mismo resultado, sería:

var    
  i: integer;  
begin   
i :=  qryPagosIdTipPag2.Value ;
case i of     
  1,2: qrPro0.memReportePagos.Value   := StrToFloat(lo_s);     
  3: qrPro0.memReportePagos3.Value   := StrToFloat(lo_s)
  4: qrPro0.memReportePagos4.Value   := StrToFloat(lo_s)
  5: qrPro0.memReporteServFac.Value  := StrToFloat(lo_s); 
end; //case   
qrPro0.memReporte.Post;qrPro0.memReporte.Post;

Y como bien dice JosepGA te sobra un end

Saludos,

Gerard.