[The Shadow]

Можно еще на WinAPI.

Код:

procedure TForm1.FormShow(Sender: TObject);
var
But: HWND;
Fnt: HWND;
begin
Fnt:=CreateFont(-12, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Terminal');
But:=CreateWindow('Button', 'ButtonName', WS_CHILD or BS_PUSHBUTTON or WS_VISIBLE, 2, 2, 100, 25, Handle, 2, HInstance, nil);
SendMessage(But, WM_SETFONT, Fnt, 0);
end;