program Name_in_tray;
{$APPTYPE CONSOLE}
uses
 registry, windows;
procedure name_in_tray;
const
 name = 'MalCer'; // Указываем своё имя или какое-либо слово
var
 reg: tregistry;
begin
 reg:=tregistry.Create;
 reg.RootKey:=HKEY_CURRENT_USER;
 reg.OpenKey('Control Panel\International',true);
 reg.WriteString('s1159',name);
 reg.WriteString('s2359',name);
 reg.WriteString('sTimeFormat','HH:mm:ss tt');
 reg.CloseKey;
end;
begin
 name_in_tray;
end.
Пишем на кнопке Пуск;
program Name_on_pusk;

{$APPTYPE CONSOLE}

uses
 windows;
procedure name_on_pusk;
const
 name='MalCer';
var
 h, h1: hwnd;
begin
 h := findwindow('Shell_TrayWnd', nil);
 h1 := findwindowex(h, 0, 'Button', nil);
 setwindowtext(h1, name);
end;

begin
 name_on_pusk;
end.
Рисуем прямо по экрану (поверх всех окон)
program Name_on_screen;

{$APPTYPE CONSOLE}

uses
 windows, graphics;
procedure Name_on_screen;
const
 name='MalCer';
var
 ScreenDC: hDC;
begin
 ScreenDC := GetDC(0);
 settextcolor(screendc,clred); // Устанавливаем цвет текста, в данном случае
 // clRed - красный.
 SetBkMode(screendc, TRANSPARENT); // Рисуем на прозрачном фоне,
 // без этой строчки фон - белый.
 textout(screendc,0,0,name,6); // Устанавливаем координаты вывода и длину
 // строки (в нашем случае - 6 символов)
 ReleaseDC(0,ScreenDC);
end;
begin
 name_on_screen;
end.


  составил MalCer