[dape]

hola, después de tanto pelear con el fatidioso sender, el código me quedo así:

Código Delphi [-]
procedure form1.create(sender: tobject)
var Encontrado : Boolean;
begin 
    Encontrado := false; 
    if Sender is TButton then 
    begin 
        if Assigned(Form2) then // si está creado el Form2 
           if not (Tbutton(sender) = form2.boton1) then //¿acaso fue <> en lugar de =? 
        begin 
            {ejecutar código 1} 
            Encontrado := true; 
        end; 
        if not(Encontrado) and Assigned(Form3) then 
          if not (Tbutton(Sender) = form3.boton2) then 
          begin 
               {ejecutar código 2} 
               Encontrado := true; 
          end; 
    end; 
    If not Encontrado then 
      {hacer lo que sea} 
      {realiza el resto}
end;

Bueno, no sé si será así com debe quedar el código, pero funcionó; talvez se pregunten porqué están negados los if, la respuesta es que si no lo niego no me los evaluava, no me pregunten porque ya que no tengo ni la más mínima idea y me gustaría mucho tenerla.

Gracias por la ayuda prestada.

saludos desde Tacna - Perú

David