안녕하세요...

스킨 컴포넌트나 기타 컴포넌트를 사용하시면 되지만, 굿이 설치하지 않고

아래의 소스로 사용 해보시면 되고요
그냥 사용하기에는 안 이쁘니깐. 폼위에 다른 컴포런트를 더 넣어서 하시면 될겁니다...

오늘도 조~~은~ 하루 되세요  ^^;

        var
            gFrmR: HRgn;

        procedure TForm1.FormResize(Sender: TObject);
        begin
            //--------------------
            gFrmR := CreateRoundRectRgn( 0,0, Width, Height, 12, 12 );
            //  gFrmR := CreateEllipticRgn( 0, 0, Width, Height );
            //  gFrmR := CreateEllipticRgnIndirect( ClientRect );
            //  gFrmR := CreateRectRgn( 0, 0, Width, Height );
            //  gFrmR := CreateRectRgnIndirect( ClientRect );
            //  gFrmR := CreateRoundRectRgn( 0,0, Width, Height, 150, 150 );

            SetWindowRgn(Handle,gFrmR,True);
        end;


        procedure TForm1.FormDestroy(Sender: TObject);
        begin
            DeleteObject(R);
        end;