Hagamos entre todos un programa (No Novatos)

[[Caral]]

Hola
Pues eso, hagamos entre todos un programa (no aceptemos Novatos).
Yo aporto el primer par de códigos:
Por supuesto el Acerca de:

Código Delphi [-]
uses   ShellApi;  begin   ShellAbout(Application.MainForm.Handle,           PChar('Primer Programa NO Novatos del Club#Quien sabe'),
          PChar('Super Programa, No Novatos' + #13#10 + 
                'Derechos de autor registrados.'),
          Application.Icon.Handle);
end;

Y el primer mensaje:

Código Delphi [-]
MessageBox(Handle, 
             PChar('Ha tenido el privilegio de adquirir este primer programa NO Novatos.' + #13#10 + 
                   'Welcome o lo que es lo mismo Bien Comido.' + #13#10 + 
                   'Pronto conseguirá las mas notables actualizaciones.'), 
             PChar('Programa No Novatos'),
             MB_OKCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL);

Bueno, ya empece, quien aportara mas codigo??, eso si, que sea de la calidad No Novato.
Saludos