There are a number of blog posts that explain how to create your own custom Live Templates for Delphi 2006, and I had to create a few of my own recently. One Live Template was called "log" and expanded to a call to my logging routines (I can imagine something like that to exist - now or shortly - for CodeSite as well).
Another perhaps useful one is for the MessageDlg, as is defining the points for the Message, MessageType and MessageButtons. The XML is as follows (just copy and paste into an .xml file placed somewhere in your BDS\4.0\Objrepos\code_templates\delphi directory):
<?xml version="1.0" encoding="utf-8" ?>
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates" version="1.0.0">
<template name="md" invoke="auto">
<description>MessageDlg live template</description>
<author>Bob Swart</author>
<point name="Message">
<text>Hello</text>
<hint>Message</hint>
</point>
<point name="MessageType">
<text>mtInformation</text>
<hint>Message Type</hint>
</point>
<point name="MessageButtons">
<text>mbOK</text>
<hint>Message Buttons</hint>
</point>
<code language="Delphi" delimiter="|">
<![CDATA[MessageDlg('|Message|', |MessageType|, [|MessageButtons|], 0);|end|]]>
</code>
</template>
</codetemplate>
The effect of this code template in action is as follows: