[Ama]

а попробуй в классе TAngel немного именить так:

Код:

    constructor TAngel.Create(X,Y:integer;NewCanvas:TCanvas);
    begin
      inherited Create;
      Xpos:=X;
      Ypos:=Y;
      Value:=45;
      Can:= TCanvas.Create;
      Can.Handle:=NewCanvas.Handle;
     end;
...
 destructor TAngel.Destroy;
  begin
   Can.Free;
   inherited Destroy;
  end;