[notricky]

Самое простое: Убираешь заголовок формы и делаешь свой заголовок.

Код:

    var Style: integer;
Style := GetWindowLong(Handle, GWL_STYLE);
    if (Style and WS_CAPTION) = WS_CAPTION then begin
        SetWindowLong(Handle, GWL_STYLE, Style and (not (WS_CAPTION)) or WS_BORDER);
        Height := Height - GetSystemMetrics(SM_CYCAPTION);
    end;

Что бы можно было перетаскивать окно - гугли ReleaseCapture;


Кроме того, можно рисовать на Окне вот так: http://www.delphisources.ru/pages/fa...aptionbar.html