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ışıyorsunuz', mtInformation, [mbOk], 0 );