Prueba con esto
Código:
var
R: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
esta funcion te regresa el area de trabajo de la pantalla en la variable R
Usa R.Bottom-R.Top
en teoria el sesultado es el punto inferior de la pantalla.
Aun que no lo he probado del todo creo que te puede servir