Pasar codigo de VB a Delphi

[[ElDioni]]

Hola,

sería algo así

Código Delphi [-]
case codi of
   1:
     begin
       cursa.categoria:='E-UCI';
       cursa.competicion:='C';
     end;
   2:
     begin
       ...
   end;

en cuanto a lo de la diferencia de fechas podrías hacerlo con la función yearsbetween (librería DateUtils), que te devuelve los años que hay entre las dos fechas que le pases a la función, en este caso la de nacimiento y la actual (Date).

saludos.