[nixon232]

Спасибо, на вскидку это именно то что нужно. Ключевой момент: Рисуется дырявая звезда и дырка именно сквозная,а не прозрачная

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  ap: array [1..5] of TPoint;
  r: hRGN;
begin
  ap [1] := Point (Width div 2, 0);
  ap [2] := Point (Width div 3 * 2, Height);
  ap [3] := Point (0, Height div 3);
  ap [4] := Point (Width, Height div 3);
  ap [5] := Point (Width div 3, Height);
  r := CreatePolygonRgn (ap, 5, ALTERNATE);
  try
    SetWindowRgn (Handle, r, TRUE);
  finally
    DeleteObject (r);
  end;
end;