[Lazarus] TTIGrid crashed after calling ListObject.Add

[Kiên Nguyễn Tiến Trung]

I'm finding the way to add something into a TCollection while using TTIGrid
on it. I've tried following code, however, when I click Button1, then click
to the space inside the grid, my program crashed. Please have a look at my
attachment for more detail.

procedure TForm1.Button1Click(Sender: TObject);
begin
  TIGrid1.ListObject := nil;
  MyCollection.Add;
  TIGrid1.ListObject := MyCollection;
end;

Do you know the right way to call add an item into TCollection?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20141209/484b0aaf/attachment-0002.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: epg1.zip
Type: application/zip
Size: 2982 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20141209/484b0aaf/attachment-0002.zip>