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 çaly?yyorsunuz', mtInformation, [mbOk], 0 );