Создание Labela

[polosataja]

В общем нужно создать лабел по кнопке, но при компиляции вот этого кода, компилятор меня яростно материт =((

var TextLab : TLabel;
begin
with TextLab.Create(Self) do
begin
Name := 'l' + IntToStr(k);
Left := 500;
Top := 500;
Caption := 'My Text';
BringToFront;
Show;
k := k + 1;
end;
end;

[galblch]

у меня всё работает нормально...
Попробуй разве что сделать так:

TextLab:=TLabel.Create(self);
with TextLab do

[Fuadik]

Вы забыли указать свойство Parent (например Parent:=Form1)