暇つぶしのページ

従来の画面サイズ取得と同じ

Memo1->Lines->add(Screen->Width);
Memo1->Lines->add(Screen->Height);