Mengambil Lebar TInggi Dekstop

//Mengambil Lebar /Tinggi Pada Screen Atau dekstop ...

//Bisa Dipasang Dimana Saja..
//Saya pasang onclick button


Var Tinggi,Lebar : string ;
Begin
Tinggi := inttostr(screen.height);
Lebar  := inttostr(screen.Width);
Showmessage('Lebar = ' + lebar + ' Tinggi = ' + tinggi) ;
End;