p:= TPanel.Create(self);
      with p do
         begin
           parent:= self;
           p.name:='max';
           height:=100;
           Width :=200;
           Top:= mousePos.x;
           left:= MousePos.y;
           Ctl3D:=false;
           popupmenu:=popupmenu1;
         end;
         for i:=1 to 2 do
           begin
              ed:=TEdit.Create(self);
              ed.parent:=p;
              ed.name:= 'ed' + inttostr(i);
              ed.Height:= 20;
              ed.Width := 70;
              ed.text := '';
              with Tedit(FindComponent('ed'+ inttostr(i))) do
                 begin
                      case i of
                        1: begin
                             top := 10 ;
                             left := 10 ;
                           end;
                        2: begin
                             top := 12 * i+ height;
                             left := 10;
                           end;

                      end;
                 end;
           end;
           btt:=TBitbtn.Create(self);

               btt.Parent:= p.Parent;
               ....