clipcursor delphi

[A.S.W]

пишу простенькую вроде бы прогу,но возникает проблема,прога проходит компиляцию,но при нажатии на кнопку выдается ошибка...
Суть вся в том,что при нажатии на кнопку курсор не может выйти за пределы формы...

вот мой код:

procedure TForm1.Button1Click(Sender: TObject);

var form1: tform;
begin
form1.Left:=Left;
form1.Top:=Top;

ClipCursor(@form1);
end;

жду подсказок

[Hacker19_90]

нда. Чёт мне кое-что не понятно!
Вот смотрите

var form1: tform;

Что это? Я конечно предпологаю что это форма какая-то скорее всего, но что это за форма обьявленная внутри метода? и почему её ни кто не создал (не выделил для неё память)?

[Demien]

А весь код можно увидеть?
Для начала из процедуры

procedure TForm1.Button1Click

попробуйте удалить строку

var form1: tform;

[Пепел Феникса]

вопросец, а что за процедура у вас такая принимающая указатель на объект?(раз компилируется)