А как же изменить расстояние на которое нужно подвести форму, чтобы она прилипла? Есть свойство SnapBuffer. По умолчанию оно равно 10.

Пример использования:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ScreenSnap:=true;
Form1.SnapBuffer:=15;
end;