Hola.
Te aconsejé usarlo como método de Form1 por que sólo lo aplicas a él y es buena práctica en OOP. Pero tranquilamente lo podrías declarar como un procedimiento normal, al que le pasas el formulario como parámetro, vgr.:
Código Delphi
[-]
procedure DibujaForm(aForm: TForm; const NumPix: Integer);
var
i, PixCol: integer;
Pto: TPoint;
begin
Randomize;
for i := 1 to NumPix do
begin
PixCol := Random($FFFFFF);
Pto.x := Random(aForm.Width);
Pto.y := Random(aForm.Height);
aForm.Canvas.Pixels[Pto.x, Pto.y] := PixCol;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
DibujaForm(Self, 2000);
end;
Un buen libro sobre Delphi y OOP es:
La cara oculta de Delphi 4, Aquí, en el
FTP de Club Delphi, encontrarás mas material interesante de lectura sobre el tema.
Una pagina de consulta muy útil es:
Delphi Basics.
Algunos tutoriales:
y encontrarás mas información en los buscadores.
Saludos