DELETED MESSAGE

[angvelem]

Что по-твоему должно происходить? Рисуй на TImage, чтобы не стиралось.

DELETED MESSAGE

[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.

DELETED MESSAGE

[angvelem]

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

ага, согласен, дописал

Код:

  finally
    Free;
    FreeMemory(@DC);
  end;

На будущее, освобожать нужно в своём блоке try/finally/end и освобождается так:

Код:

  ReleaseDC(Handle, DC)

[angvelem]

И всех делов:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Pen.Color := clRed;
    Pen.Style := psSolid;
    Pen.Width := 1;
    Brush.Style := bsClear;
    Rectangle(0, 0, ClientWidth - 1, ClientHeight - 1);
  end;
end;

DELETED MESSAGE