Не работает обращение к Chart1 из метода класса

[Дима я]

Другие компоненты работают нормально а вот Chart и создаваемые потом Series не работают...

После вызова этого метода-
Ошибка
Access violation at adress 69746163.Read of adress 69746163.

Я так понимаю это глюк Делфи??Пробовал у друга у него тоже самое

[Дима я]

Ну что никто ничего не подскажет??
Может как то можно по другому графики построить стандартными элементами?

Что интересно попробовал тоже самое в С++ думал там не будет такой ошибки,но не тут то было ..та же ошибка

[noxin]

а код можно посмотреть?

[Дима я]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
Op = class
public
   Chart1: TChart;
    Series1: TBarSeries;
procedure ll();


end;

  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TBarSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ Op }

procedure Op.ll;
begin
Series1.AddXY(3,5);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
l:Op;
begin
 l.ll;
end;

end.

[Дима я]

Может что то в Uses надо добавить ??

[noxin]

проблем в том, что вызывается метод класса, в котором и рисуется график, но первоначально надо создать экземпляр класса

 l := Op.Create();

после это можно вызывать методы класса

[Дима я]

То есть правильно было бы записать так

procedure TForm1.Button1Click(Sender: TObject);
var
l:op;
begin
l := Op.Create();
l.pp();
end;

Мне это не помогло вылазит та же ошибка

[noxin]

Ощибку выдаёт потому что в классе только описана переменная типа TBarSeries, но как таковой её не установлено, надо передавать её или создавать динамически.
Так проще всего:

procedure TForm1.Button1Click(Sender: TObject);
var
l:Op;
begin
 l := Op.Create();
 l.Series1 := Series1;
 l.ll;
end;

[Дима я]

Спасибо понял