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.