einfach 2 schleifen machen (x- und y-schleife) und darin einen punkt an die Koordinate zeichnen. Das ganze noch ins OnPaint und dann müsstes du die punkte sehen
[Edit]Source eingefügt[/Edit]
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var x, y: Integer;
begin
for x := 0 to (width - 1) div 5 do
begin
for y := 0 to (height - 1) div 5 do
begin
Self.Canvas.Pixels[x * 5,y * 5] := clRed;
end;
end;
end;