FreePascal.ru

Полностью работающий пример здесь: http://represento.ru

В реестре пишем так:
[Registry.All]
; DWORD, Custom Items must always have Type = 4
HKLM,Software\Microsoft\Today\Items\MyFistTodayPlugin,Type,0x00010001,4
; DWORD
HKLM,Software\Microsoft\Today\Items\MyFistTodayPlugin,Enabled,0x00010001,1
; DWORD
HKLM,Software\Microsoft\Today\Items\MyFistTodayPlugin ...

Перевел код TodayPlugina с C++ на FreePascal. Выглядит это так

library MyFistTodayPlugin;
{$mode delphi}{$H+}

uses
Classes, Windows, todaycmn, aygshell
var
g_hWnd: HWND;
g_hInst: HModule;

Const
IDS_CUSTOM_ITEM_APPNAME='MyFistTodayPlugin';

function MyWndProc(hwnd: hwnd; uimessage ...