procedure TForm1.Button1Click(Sender: TObject);
 var 
 h,w:integer;
 begin
 h:=Screen.height; { Screen height in pixels }
 w:=Screen.width;
 showmessage('Текущее разрешение '+inttostr(w)+' на '+inttostr(h))
 end;