Форма заходит за границы...

[InseR]

У меня есть форма,которая передвигается по рабочему столу,но иногда она уходит за его пределы...Как сделать,чтобы если форма пыталась уйти за границу экрана,она бы немогла это сделать?

[Alex21]

if Form1.Left>= Screen.Width-Form1.Width - для горизонтали
if Form1.Top>= Screen.Heigth-Form1.Heigth - для вертикали
и соответственно <=0

[JTG]

Форма с интеллектом