[[Lepe]]

Un saludo (que siempre se pone de coletilla.... ,¿por qué no ponerlo al principio? )

Código Delphi [-]
 procedure dsa;
 begin
   ShowMessage('dsa');
 end;
 
 begin //begin principal de la aplicacion
  Objeto:= TObjeto.Create(nil);
  try
   Objeto.OnOpen:= dsa;
  finally 
    Objeto.Free;
  end;
 end.