Parámetros predeterminados del método en profundidad (10)

// Punto 10: Tanto los procedimientos como las funciones pueden tener uno o más parámetros predeterminados; pero deben estar detrás de la 
función de parámetros no predeterminados MyFun (s1: string ; s2: string = ' good guy ' ): string ;
 begin 
  Resultado: = s1 + s2 ;
 end ; 

{ call } 
procedure TForm1.Button1Click (Sender: TObject);
 var 
  str1, str2: string ;
 begin 
  str1: = ' in case ' ; 
  str2: = ' bad guy ' ; 

  ShowMessage (MyFun (str1));       {En caso de buenas personas } 

  ShowMessage (MyFun (str1, str2)); { en caso de malos } 
fin ;