procedure TForm6.FormCreate(Sender: TObject);
begin try
exp1:=TFramelessIE.Create(Panel1);
exp1.ParentWindow:=Panel1.Handle;
exp1.top:=1;
exp1.left:=1;
exp1.Height:=Panel1.Height-2;
exp1.Width:=Panel1.Width-2;
exp1.OnProgressChange :=WebBrowser1ProgressChange;
address_buffer:=TStringList.Create;
except end;End;