Создание формы произвольного вида... Опции

[b13st]

Вобщем, я делаю форму произвольного вида, вот таким способом (в данном случае круглую):

 R1 := CreateElliPticRgn(0,0,100,100);
	   SetWindowRgn(Handle, R1, True);

и я хочу сделать вокруг нее оборку (как бы подчеркнуть границу формы), вот так -

	 Canvas.Brush.Color := clBlack; 
	 FrameRgn (Canvas.Handle, R1, Canvas.Brush.Handle, 2, 2);

Но в результате ни чего не изменилось - получается та же форма без оборки..
Собственно сам вопрос - как сделать вокруг формы рамку (оборку)?