Var MySeries : TLineSeries ;

MySeries := TLineSeries.Create( Self );

MySeries.ParentChart := Chart1 ;

Когдаделаю так то первый момент работает после сохрания
 

unit other;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMXTee.Engine,
  FMXTee.Procs, FMXTee.Chart, FMX.Edit, FMX.StdCtrls, FMX.Controls.Presentation,
  FMXTee.Series;
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Chart1: TChart;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

   H,n,f:integer;
   Series:TLineSeries;
implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
begin
H:=H+1;
 n:=strtoint(edit1.Text);
F:=System.Random(n);
label1.Text:=inttostr(F);
randomize;

  Series.AddX(H);
 Series.AddY(F);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Series:=TLineSeries.Create(self);
    Series.Name:='Series1';

    Series.ParentChart:=Chart1;
    Series.Title:='Line';
    Chart1.View3D:=false
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  Chart1.ClearChart;
end;

end.

ошибка которю выдает:
[dcc32 Fatal Error] al.dpr(7): F2613 Unit 'Unit2' not found.
  al.dpr(7): Unit 'Unit2' is used by 'Userlarmforn'

и показывает на инициализацию формы

Хочу все это сделать на канве панели. Унаследовал класс и переопределил procedure   Paint; override;

  Tfield = class(TPanel)
      Constructor Create( parent: TFmxObject);
        procedure   Paint; override;
        Procedure   OnMyClick (Sender: TObject);
    end;

В теле метода я пробовал рисовать. Экспериментировал и столкнулся с такой проблемой. Ничего не отображается. Нет никаких изменений.

Если я наследую не от Tpanel а от Timage то часть кода работает а часть работает очень криво. Очень хочу разобраться почему .

{Отображается сразу}

for a:=1 to 1000 do
      begin
        self.Canvas.Fill.Color:=  TAlphaColors.Crimson;
         self.Canvas.FillEllipse(rect(1,1,10,10),self.AbsoluteOpacity);
         self.Canvas.FillEllipse(rect(round(self.Width-9),round(self.Height-9),round(self.Width), round(self.Height)),self.AbsoluteOpacity);
         self.Canvas.FillEllipse(rect(round(self.Width-9),1,round(self.Width), 9),self.AbsoluteOpacity);
         self.Canvas.FillEllipse(rect(1,round(self.Height-9),10, round(self.Height)),self.AbsoluteOpacity);
      end;

{Отображается только после того как я проскролю Scrollbox на котором лежит панель в крайнее нижнее правое положение}
      self.Canvas.Stroke.Color:=  TAlphaColors.Crimson;
      self.Canvas.Stroke.Thickness:=7;
       Canvas.BeginScene;
      self.Canvas.DrawLine(PointF(20, 20), PointF(100, 50), self.AbsoluteOpacity);
       Canvas.EndScene;

Подскажите пожалуйста, почему не работает такое с панелью?  Как правильно рисовать на панели? 
Почему в случае с имейджем все работает так некорректно?  Почему работает только после скрола? 

Каким способом мне лучше сделать координатную сетку? состоящую из точек как в режиме Design?

procedure TForm9.Panel1Click(Sender: TObject);
var
  M: TBitmapData;
  i, j: integer;
begin
  if Panel1.Canvas.Bitmap.Map(TMapAccess.maWrite, M) then
    try
      for i := 0 to Panel1.Canvas.Bitmap.Width - 1 do
        for j := 0 to Panel1.Canvas.Bitmap.Height - 1 do
          M.SetPixel(i, j, TAlphaColorRec.Red);
    finally
      Panel1.Canvas.Bitmap.Unmap(M);
    end;
  // Stars1.Stars := not Stars1.Stars;
end;

Но даже при его запуске получаю ошибку: 

 

First chance exception at $005537A3. Exception class $C0000005 with message 'access violation at 0x005537a3: read of address 0x00000040'. Process Project10.exe (3228)

Если нажать на Break то кидает на функцию 

function TBitmap.GetCanvasClass: TCanvasClass;
begin
  if not Assigned(FCanvasClass) then
    FCanvasClass := TCanvasManager.GetDefaultCanvas;
  Result := FCanvasClass;
end;

Собственно вопрос: Как нарисовать точку на канве в FMX?