var
  lbl :Tlabel;
begin
  lbl :=TLabel.Create(application_;
  lbl.parent :=Form1;
  lbl.left:=300;
  lbl.visible :=True;
end;

解决方案 »

  1.   

    var
    L: TLabel;
    begin
    l:=Tlabel.Create(application);
      l.parent :=Form1;
        l.Left:= 80;
        l.Top:= 45;
        l.Width:= 40;
        l.Height:= 13;
        l.Caption:= 'Label1';
    end;
      

  2.   

    var
      i,Atop:integer;
    begin
        for i:=0 to 9 do
        begin
            with TLabel.Create(Self) do
            begin
                Parent := self;
                top := ATop;
                width := 68;
                height := 17;
                if ((i+2) mod 2)=0 then
                    left:=8
                else
                begin
                    left := 182;
                    ATop := ATop+28;
                end;
                caption:='label'+InttoStr(i);
            end;
         end;
    end;