[Страдалецъ]

Можно просто делать циклом вывод тех-же точек, но это не самый быстрый способ:

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
  x,y: Integer;
begin
for y := 0 to Form1.Height
do for x := 0 to Form1.Width
    do if (y mod 5 = 0) and (x mod 5 = 0)
        then Form1.Canvas.Pixels[x,y] := clBlack;
end;