[ecfisa]

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 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
      procedure Dibuja;   // <-- (1)
  public
    { public declarations }
  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