интервал таймера стоит *1*  ладно думаю  это мелочи...код же верен...щас буду разбираться....спасибо большое ребят
p.s. последний вопрос что за 
	Цитата:
	
	
		| procedure TForm6.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var l:single;
 | 
	
  а именно TmouseButton и FormMouseDown это что и за что отвечают?