안녕하세요..^^;;
어찌저찌하다 ScaleBy로 창의 전체를 조절하게 되어서.. 원하는대로 해결을 했습니다.

그런데 제가 TShape에 글자를 넣기 위하여 따로 상속을 받아서 TShape를 만들었는데요.
그것때문인지.. ScaleBy로 조절을 하니 TShape의 크기만 변할뿐..

글자는 커지지 않는군요..

아래는 TShape 재정의한 것입니다. 꼭 좀 부탁드릴게요..
3달할 작업이 한번에 덜어져서 너무 좋은데.. 더이상 어떻게 손봐야할지 모르겠습니다. ㅠ

class TShape : public Extctrls::TShape {
	typedef Extctrls::TShape inherited;

public:
	String TEXTOUT;
	TColor FONTCOLOR;
	int FONTSIZE;

	__fastcall virtual TShape(TComponent* Owner) : Extctrls::TShape(Owner) {
	}

	void __fastcall Paint() {
		TRect r = ClientRect;

		inherited::Paint(); // 이전꺼 모양 그데로 실행....하는거.. 모양은 이전꺼로... 아래꺼는 추가

		Canvas->Font->Color = FONTCOLOR;
		Canvas->Font->Size = FONTSIZE;
		Canvas->Pen->Width = 0;
        SetBkMode(Canvas->Handle,TRANSPARENT);
		Canvas->TextOutA(r.Width() / 2 - Canvas->TextWidth(TEXTOUT) / 2, r.Height() / 2 - Canvas->TextHeight(TEXTOUT) / 2, TEXTOUT);
	}
};
#define TShape        ::TShape