Форма и её рамка

[theYozh]

Всем привет.
Господа, столкнулся со следеющей проблемой:
Нужно сделать свою рамку и заголовок у формы. Например:

Очень надюсь на вашу помощь.
PS
Мой поиск по форуму результатов не дал.

[Dj_smart]

BorderStyle = bsNone
Вокруг формы (во внутренней стороне) лепишь 8 имейджов(края).
По клике на верхнем (будет таксать окно):

procedure TCalendar.MainImageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  perform(WM_SysCommand, $F012, 0);
end;

[theYozh]

Я понял так:
1)Просто на форму накидать картинок
2)Вставить Вашу функцию(огр спасибо за нее:-) для перетаскивания этого окна

Тогда вопрос такой: куда нужно прописывать этот код?

[theYozh]

Спасибо, уже разобрался
Еще раз Спасибо!

[Dj_smart]

Всегда пожалуйста