[ssg]

Как добавить надпись(label) в самой прогамме? т.е. запускаю свою прогу, нажимаю на кнопку и у меня появляеться новая надпись

[Interface]

Label.Create
Ну я лучше б на твоем месте список сделал - он удубней во всех отношениях...

[M.A.D.M.A.N.]

Нет, неправильно
вот как надо

Код:

var MyLabel:TLabel;
...
procedure TForm1.FormCreate(Sender:TObject):
begin
  MyLabel:=TLabel.Create(Self);
  MyLabel.Parent:=Self; //Куда мы хотим разместить лайбу
  MyLabel.Caption:='Hello world'; //Текст лайбы
  MyLabel.Left:=10;//Позиция по Х
  MyLabel.Top:=10;//Позиция по У
end;

PS За опечатки простите, клава неудобная.

[ssg]

Спасибо большое!!! А если их много надо делать, то как?

[Alexo]

Делай например массив
lbl : array[0..100] of TLabel

[M.A.D.M.A.N.]

а потом по индексу конструируй

Код:

var labels:array[0..100]of TLabel;
index:byte;
begin
for index:=0 to 100 do
  begin
    labels[index]:=TLabel.Create(self);
    labels[index].parent:=self;
    //...and so one...
  end;