Tilføje en label ved runtime

Jeg skal lave et form, hvor man kan tilføje en label ved runtime.

Forsøget:

procedure TForm1.Button1Click(Sender: TObject);
var l: Tlabel;
begin
  l:= TLabel.Create(Self);
  l.name:= \'lblUgh\';
  l.Caption:=\' ugh!!!\';
  l.top:=  10;
  l.left:= 10;
end;

Der er her ikke nogen label at se på formen, men den er oprettet, da der kommer en navnefejl  hvis man trykker på button1 2 gange

(already got a label named \"lblUgh\")

hvad gør jeg?