Como criar uma figura do tipo marca d' água

Veja nesta dica como transformar uma figura em marca d’água.

 

procedure TForm1.Button1Click(Sender: TObject);

var

  X, Y: Integer;

begin

  brush.style := bsClear;

  for y := 0 to image1.height - 1 do

    for x := 0 to image1.width - 1 do

    begin

      if (x mod 2)=(y mod 2) then

        image1.canvas.pixels[x, y] := clWhite;

    end;

end;