''画面の幅＆高さ

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

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

これでいけた