Динамическое создание кнопок на форме

[SergKam]

Классическая задача. Но чтото не работает у меня в
ASPLinux 11.2/fpc 2.0.4/lazarus 0.9.23
Пустая форма без намеков на кнопку

Код: Выделить всё

procedure  TFormPopup.AddBUT(s:string;toleft:boolean);
var b:TButton;
begin
showmessage(s+':'+BoolToStr(toleft));
  b:=TButton.Create(Self);
  b.Parent:=self;
  b.Top:=50;
  b.Left:=20;
  b.Width:=100;
  b.Height:=25;
//b.Align:=alTop;
  b.Caption:=s;
  b.Show;
  b.BringToFront;
end;

Что делать не знаю. У кого подобный код работает? или что надо сделать чтоб работал?

[Attid]

в венде на 0,9,22 работает в линухе проверю вечером.

[Attid]

в убунту /fpc 2.0.4/lazarus 0.9.22
тоже работает.

[shade]

ASPLinux 11.2/fpc 2.0.4/lazarus 0.9.20 - работает