похоже с описанием класса накосячил

[MetR]

Tpers = class(TObject)
  pcanvas:tcanvas;
  Constructor Create;
  Destructor Destroy; override;
  procedure coolspot(cx,cy:integer; csColor:tcolor);
  end;

constructor Tpers.Create;
begin
inherited;
	pcanvas:=Tcanvas.create;
end;

destructor Tpers.Destroy;
begin
pcanvas.Free;
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
pers.pcanvas:=imgpole.Canvas;             {imgpole:timage}
pers.coolspot(100,100,clred);
end;

procedure tpers.coolspot(cx,cy:integer; csColor:tcolor);
begin
pers:=tpers.Create;
pcanvas.Brush.Color:=cscolor;
pcanvas.Ellipse(cx-10,cy+10,cx+10,cy-10);
pers.Free;
end;

сначала этот код написал без конструктора\деструктора, но эа этой строке вылетала ошибка: "access violation at address in module"

pers.pcanvas:=imgpole.Canvas;

добавил конструктор, снова вылетает нечто похожее

что делать?

[Прик]

Нельзя создавать сам объект в его же описании.
Не нужно создавать объект TCanvas, если затем переменной присваивается ссылка на существующий объект:

pers.pcanvas := imgpole.Canvas;

Поэтому в описанной ситуации не нужны ни конструктор, ни деструктор. А достаточно ниже показанных процедур.

procedure Tpers.coolspot(cx, cy: integer; csColor: tcolor);
begin
  pcanvas.Brush.Color:=cscolor;
  pcanvas.Ellipse(cx-10,cy+10,cx+10,cy-10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pers:=tpers.Create;
  pers.pcanvas:=Image1.Canvas;             {imgpole:timage}
  pers.coolspot(100,100,clred);
  pers.Free;
end;