[Страдалецъ]

Задавайте координаты ручками или с помощью генератора случайных чисел:

Код:

Var
   myLabel: TLabel;
   i: Integer;
begin
 for i := 0 to 10
 do begin
     myLabel := TLabel.Create(Self);
     myLabel.Parent := Self;
     myLabel.Caption := 'Label'+IntToStr(i);
     myLabel.Left := Random(Width-Canvas.TextWidth(myLabel.Caption));
     myLabel.Top := Random(Height-Canvas.TextHeight(myLabel.Caption));
     end;
end;