procedure TForm1.BitBtn1Click(Sender: TObject);
var
pasar: TLabel;
begin
pasar := TLabel.Create(Form1);
pasar.Parent := Form1;
pasar.enabled := true;
pasar.name := 'Label2';
pasar.Caption := 'Habitacion';
pasar.Visible := True;
pasar.Top := 100;
pasar.Left := 100;
pasar.Width := 100;
end;