Фрейм, динамический лист, не могу исправить ошибку

[synthetisch]

При удалении и создании одного и того же фрейма, выскакивает access violation, как я понял дело в том что переменной (связанной со списком, создаваемым динамически) присваиваю значение nil, а затем пытаюсь обратиться к ней...не могу исправить это...

Список создаю для того, чтобы при выделении записей в DBGrid, в него заносились значения ключевых полей таблицы, может кто нибудь подскажет более удобный код...если нет то помогите исправить кому не сложно...код представлен ниже...проблемная строка указана красным цветом

Дополнительная инфа: этот же код спокойно работает на форме, но вот на фрейме выдаёт ошибку в указанной строке

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, sPageControl,
  sFrameAdapter, Vcl.Grids, Vcl.DBGrids, acDBGrid, Vcl.Buttons, sSpeedButton,
  Vcl.ExtCtrls, sPanel, RzDBGrid, Vcl.ImgList, acAlphaImageList, sStatusBar,
  Vcl.StdCtrls, sButton;

type
  TFrame3 = class(TFrame)
    sFrameAdapter1: TsFrameAdapter;
    sPanel1: TsPanel;
    sSpeedButton1: TsSpeedButton;
    sStatusBar1: TsStatusBar;
    sAlphaImageList1: TsAlphaImageList;
    sButton1: TsButton;
    RzDBGrid1: TRzDBGrid;
    procedure sButton1Click(Sender: TObject);
    procedure FrameEnter(Sender: TObject);
    procedure FrameExit(Sender: TObject);
    procedure RzDBGrid1CellClick(Column: TColumn);
    procedure RzDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
     ListSelect : TList;
  Procedure ShowStatusBar;
  end;

implementation
 uses unit1;
{$R *.dfm}
Type
   TColumnAction = (caCheck, caNone);    //необходимо для отрисовки картинки в поле чек бокса

Const
   ColumnName : array[TColumnAction] of String = ('Check',''); //необходимо для отрисовки картинки в поле чек бокса

   Function GetColumnAction( Value : String ): TColumnAction;
Var i : TColumnAction;
Begin
   Result:=caNone;
   FOR i:=Low(TColumnAction) TO High(TColumnAction) DO
   IF CompareText(Value , ColumnName[i]) = 0 Then Result:=i;
End;


procedure TFrame3.FrameEnter(Sender: TObject);
begin
TFrame3(CurrentFrame).ListSelect:=TList.Create;
end;

procedure TFrame3.FrameExit(Sender: TObject);
begin
TFrame3(CurrentFrame).ListSelect.Free;
end;

procedure TFrame3.RzDBGrid1CellClick(Column: TColumn);
var
value,i : integer;
p: pointer;
begin
 IF CompareText(Column.Field.FieldName , 'Check') = 0 Then
   Begin
        Value:=Column.Field.DataSet.FieldByName('ID').AsInteger;
        IF ListSelect.Count > 0 Then
            IF ListSelect.IndexOf(Pointer(Value)) >=0
            Then ListSelect.Delete(ListSelect.IndexOf(Pointer(Value)))
            Else Begin
                   ListSelect.Add(Pointer(Value));
            End
            Else Begin
                   ListSelect.Add(Pointer(Value));
            End
   End;
    Column.Grid.Refresh;
    ShowStatusBar;
end;

procedure TFrame3.RzDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var CheckIt : Boolean;
    Style   : Integer;
    ColumnAction : TColumnAction;
begin

    ColumnAction := GetColumnAction(Column.FieldName);


    CheckIt := ListSelect.IndexOf(Pointer(TDBGrid(Sender).DataSource.DataSet.FieldByName('ID').AsInteger))>=0;

    IF CheckIt
    Then TDBGrid(Sender).Canvas.Font.Color:=RGB($FF,$00,$00);

        IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1
        Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($CC,$CC,$99);

    IF  gdSelected   IN State
    Then Begin
             TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
             TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
         End;

    TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

    Case ColumnAction Of

       caCheck  :
                  IF CheckIt
                  Then sAlphaImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top, ORD(ColumnAction) )


    End;
end;

procedure TFrame3.sButton1Click(Sender: TObject);
begin
ListSelect:=TList.Create;
ShowStatusBar;
end;


Procedure TFrame3.ShowStatusBar;
Begin
sStatusBar1.Panels[0].Text:='Выбрано строк: ' + IntToStr(ListSelect.Count) ;
End;

end.

[min@y™]

Ой-ёй-ёй! Вот этот кусок гнилой совсем.

procedure TFrame3.FrameEnter(Sender: TObject);
begin
TFrame3(CurrentFrame).ListSelect:=TList.Create;
end;

procedure TFrame3.FrameExit(Sender: TObject);
begin
TFrame3(CurrentFrame).ListSelect.Free;
end;

Замени на конструктор и деструктор.

constructor TFrame3.Create(AOwner: TComponent);
begin
  inherited;
  ListSelect:= TList.Create();
end;

destructor TFrame3.Destroy;
begin
  ListSelect.Free();
  inherited;
end;

И ещё:

procedure TFrame3.sButton1Click(Sender: TObject);
begin
ListSelect:=TList.Create; // выбрось эту строку
ShowStatusBar;
end;

[synthetisch]

Хорошо, учёл, это конечно проблемы не решило, но всё же спасибо )

[synthetisch]

Проблема решена!
Дело в том, что я пытался создать список на ещё не существующем фрейме.

Решением было создание процедур AfterConstruction и BeforeDestruction:

 procedure AfterConstruction; override;
  procedure BeforeDestruction; override;

{это событие возникает перед созданием фрейма}
procedure TFrame3.AfterConstruction;
begin
  inherited;
  ListSelect:=TList.Create();
end;

{это событие возникает перед закрытием}
procedure TFrame3.BeforeDestruction;
begin
  inherited;
  ListSelect.Free();
end;

[min@y™]

Ну пипец, блин! Найдите 10 отличий. Чем мой-то вариант не подошёл?

[synthetisch]

Я и нашёл решение благодаря Вашему варианту, как видите оно слегка отличается, Ваш вариант к сожалению не работал как нужно, но за решение проблемы спасибо Вам )

[min@y™]

Ваш вариант к сожалению не работал как нужно

ёёёёёёёПочему?

[synthetisch]

Ну код просто не работал, даже после коррекции

[min@y™]

я спросил "почему?"...
Ответ типа "ах...егознает" принимается.
так действительно бывает, и я даже причину знаю.

[synthetisch]

Но я же благодарен за твою помощь, на форуме один ты отозвался, спасибо ещё раз, и если бы не ты, я бы искал решение проблемы не в том месте )