Нужно посмотреть, а пока у тебя 1 ошибка и неудачный выбор отрисовки.
Код:
DC := GetWindowDC(Handle);
нужно обязательно освобождать.
Код:
LineTo(0, mainForm.Height - padding);
LineTo(mainForm.Width - padding, mainForm.Height - padding);
LineTo(mainForm.Width - padding, 0);
LineTo(0, 0);
проще использовать Rectangle.