[adeszeus]

me acabo de dar cuenta que me falta cuando sale hacia la derecha e izquierda asi que solo implemente este codigo

Código Delphi [-]
if (x>(form1.Width-18)) or (y>(form1.Height-42)) then
//Edit1.Text := 'Fuera'
else if (X<>0) and (y<>0) then
Edit1.Text := 'Dentro'
else
Edit1.Text := 'Fuera';

donde los valores de 18 y 42 corresponden a los bordes y a la cabecera del formulario