delphi 10 lite,radiogroup

[[Delphius]]

Hola juaarias,
¿Conoces la estructura de selección CASE? Tu código puede simplificarse con ésta.

Código Delphi [-]
case rdgTipoPago.ItemIndex of
0: frmRecibo.lblTipo.Caption := 'Efectivo';
1: frmRecibo.lblTipo.Caption := ...
...
N: ...
end; // El case finaliza con un end.

Te recomiendo una lectura sobre la gramática y sintaxis de Pascal/Object Pascal. En la ayuda hay todo un apartado sobre ésto.

Saludos,