1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.WMNCHitTest(var msg: TWMNCHitTest);
var MPos: TPoint;
    Action: Integer;
begin
   inherited;

   MPos.X := Msg.XPos;
   MPos.Y := Msg.YPos;
   MPos := ScreenToClient(MPos);

   Action := 0;
   if (MPos.X > Self.Width - 10) and (MPos.Y > 20) then
      Inc(Action, 1);
   if MPos.Y > Self.Height - 10 then
      Inc(Action, 2);

   case Action of
      1: Msg.Result := htRight;
      2: Msg.Result := htBottom;
      3: Msg.Result := htBottomRight;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormPaint(Sender: TObject);
begin
      canvas.Rectangle(0,0, width, height);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
    formpaint(self);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Rectangle(0,0, width, height);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  //formpaint(self);
  invalidate;
end;