Delphi - Crear un acceso directo

Hola a todos. He desarrollado una aplicacion y estoy creando un instalador para esa aplicación. Me gustaría saber cómo puedo hacer para crear un acceso directo en el escritorio y añadir mi aplicación en "inicio>programas". Todo esto mediante código, claro.
Un saludo a todos y muchas gracias.