Delphi Ekran çözünürlüğünü öğrenme

Screen.Width //yatay çözünürlük Screen.Height //dikey çözünürlük 

MessageDlg('Şu anda ' + IntToStr( Screen.Width ) +' x '+
IntToStr( Screen.Height )+' çözünürlükte çalıştırıyorsunuz',
mtInformation, [mbOk], 0 );