這個問題你應該先用KTop搜尋才是
例：
http://delphi.ktop.com.tw/topic.php?topic_id=44862
我個人習慣是：
TForm1 *Form1;
// 這是我螢幕解析
static const int ScreenWidth  = 1024; 
static const int ScreenHeight = 768;
void __fastcall TForm2::FormCreate(TObject *Sender)
{
// 判斷螢幕解析並調整
  if (Screen->Width != ScreenWidth) {
    float h=((float) Screen->Width/(float) ScreenWidth);
    float w=((float) Screen->Height/(float) ScreenHeight);
    this->ClientHeight= (int) (this->ClientHeight * h);
    this->ClientWidth = (int) (this->ClientWidth  * w);
    ScaleBy(Screen->Width,ScreenWidth);
  }
}
請參考