[NumLock]

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clBlack;
  Canvas.Brush.Style:=bsClear;
  Canvas.Rectangle(Rect(10, 10, ClientWidth-10, ClientHeight-10));
end;