[angvelem]

Это также можно сократить

Код:

...   
var  
  Lft: array[0..10] of Integer = (30, 130, 250, 345, 435, 540, 630, 738, 830, 950, 1060);
...
  for i := 0 to 10 do  
  begin
    Text[i] := TLabel.Create(Form1);
    Text[i].Parent := Form1;
    Text[i].Caption := 'lh' + IntToStr(I);
    Text[i].Left := Lft[i];
  end;
...