[angvelem]

Нужно посмотреть, а пока у тебя 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.