Перемещение объекта

подскажите пожалуйста ,как реализовать движение объекта ,чтоб объект можно было перемещать мышкой ,как это реализовано в ДС на форме ,только это ,TSizeCtrl не надо
я хочу перемещать меняя координаты ,но не могу менять координаты правильно ,чтоб зависимо было от координатов мышь