EBusError при назначении PageControl fpc/Lazaurs

Question

Я пытаюсь создать динамический TTabSheets для моей программы.
Написано на FPC/Lazarus для ARM/WinCE
Все работает, включая время создания созданных вкладок, но следующий код

try
  Tab      := TTabSheet.Create(PageControl1);
  logit('1');
  Tab.PageControl := PageControl1;
  logit('2');
  Tab.Caption := gname; 
except
  on E: Exception do
  begin
    logit(e.message);
    logit(e.classname);
  end;
end;   

в строке Tab.PageControl:= PageControl1; Возникает исключительная ситуация EBusError, ошибка шины или неправильный доступ к данным.

Я прочитал это, но я не уверен, как это применяется http://wiki.freepascal.org/Windows_CE_Development_Notes

код отлично работает для win32
FPC версия 2.2.4

Answer 1

После некоторой помощи отсюда http://lazarus.freepascal.org/index.php/topic,10217.msg50558.html

Ответ должен был использовать Daily Snapshot, Lazarus-0.9.29-27140-fpc-2.4.3-20100819

Все исправлено