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;