start unit

Jeg har følgende unit, hvordan startes den ved at der trykkes på en knap på formen, det kan osse godt være at der er en fejl i unitten. (KODEN TIL KNAPPEN ØNSKES)

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  type

TPrik = class
  private
    fMinCanvas : TCanvas; // Defacto std. at private props starter med f!
  public
    procedure Mal;
    constructor Create(aCanvas : TCanvas); // Sender formens canvas over
    destructor Destroy; override; // Altid override en destructor!
  end;

implementation

constructor TPrik.Create(aCanvas : TCanvas);
begin
  fMinCanvas := TCanvas.Create;

  // Manglede at assigne handle så canvas'et ved hvor den skal tegne
  fMinCanvas.Handle := aCanvas.Handle;
end;

destructor TPrik.Destroy;
begin
  try
    fMinCanvas.Free;
  finally
    Inherited;
  end; // try
end;

procedure TPrik.Mal;
begin
  fMinCanvas.Lock;
  try
    fMinCanvas.Pixels[2,10] := clRed;
  finally
    fMinCanvas.UnLock;
  end; // try
end;
end.