[AlexSku]

Сообщение от maddamo4ka

а ошибку выдает в MouseMove: Statement expected but 'PROCEDURE' found и тоже самое в MouseDown

Это произошло потому, что процедура DrawShape не закончилась (2 раза 'begin' и только один 'end').