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