[zip000]

Вот вам нормальный код создания лейблов.

Код:

procedure TForm1.CreateLabel(X : Integer);
var
  l : TLabel;
begin
  while X > 0 do begin
    l := TLabel.Create(Self);
    l.Name := 'MyLabel' + IntToStr(X);
    l.Left := 50;
    l.Top  := X * 50;
    l.Parent := Text.Panel1;
    Dec(X);
  end;
end;

А вот так обращаться к нужному лейблу

Код:

var
  l : TLabel;
................................
  CreateLabel(1);
  l := Text.FindComponent('MyLabel1');
  if l <> nil then begin
    l.Caption := 'hello';
    l.Left := (Text.Panel1.Width - l.Width)Div 2;
  end;