너무나 쉬운 문제라 사람들이 아마 대답을 안할 겁니다.
아직 초보시라 생각하고 그냥 적어드립니다.
위도우 크기를 가지고 상대적 크기를 만들면 됩니다.
아래는 간단하게 폼보다 열배 작은 버튼입니다. 테스트 해보세요. 이렇게 하면 될테니
폰트도 마찬가지입닏.

void __fastcall TForm1::FormResize(TObject *Sender)
{
    Button1->Width = Form1->Width / 10;
    Button1->Height = Form1->Height /10;
}


지나가는 님이 쓰신 글 :
: 윈도우를 변경시킬시..
: 윈도우 안에 그린 버튼이나 에디트박스와 글자가
: 같이 변하게 하고 싶습니다..
: 얼마의 크기까지는 작게 혹은 크게 변하게 하고
: 그 이상일때는 그냥 스크롤바로 처리하게 하고 싶습니다.
: 어떻게 접근하면 좋을까여?
:
: void __fastcall TForm1::OnResize(TObject *Sender)
: {
:    ShowMessage(AnsiString("사이즈가 변경됐습니다"));
:
: }
: 이렇게 해서 이 안에서 사이즈가 변하는것은 알겠는데..
: 그 이상은 진도가 안가는 군여..
:
: 부탁 드립니다.