Hola.
Lo primero que te conviene es convertir al procedimiento "Dibuja" como método de
Form1, declarándolo dentro de la clase
TForm1:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure Dibuja; public
end;
...
Posicionado en (1) presionas
Ctrl+Shift+C y
Lazarus generará la cabecera del método (esqueleto) de forma automática, luego escribes en él tu código:
Código Delphi
[-]
...
implementation
procedure TForm1.Dibuja;
var
i, PixCol: integer;
Pto: TPoint;
begin
Randomize;
for i := 1 to 2000 do
begin
PixCol:= Random($FFFFFF);
Pto.x := random(Width);
Pto.y := random(Height);
Canvas.Pixels[Pto.x, Pto.y] := PixCol;
end;
end;
...
Fijate que accedes al color de cada píxel del form como un arreglo bidimensional mediante la propiedad
Pixels.
Saludos