prblema basico de procedimientos

[defcon1_es]

Hola,
Por lo que veo, no necesitas sender en esa llamada, no?
prueba esto:

Código Delphi [-]
procedure Tform1.llamagenero;
begin
  selgenero:= selgenero-1;
  if selgenero= 1 then 
    SpeedButton19.Click 
  else 
    if selgenero = 2 then 
      SpeedButton20.Click;
end;

Salu2.