Можно так:
Code
if (столкновение) then
(таймер).Enabled := false;
Можно просто объявить глобальную булевую переменную, тогда будет что-то типа:
Code
type Form1 = class ...
....
public:
move:boolean;
......
(процедура создания формы)
move := true;
......
(процедура таймера)
if move then
begin
(двигать)
if (столкновение) then move := false;
end;
В общем, надо просто подумать)
