uses?

[Horst]

was muss ich für den code unten in uses schreiben`

Code:

var

ActiveDesigner: TEditDesigner;

EditServices: IHTMLEditServices;



procedure TForm1.SetDesignModeOn;

begin

while Embeddedwb1.Busy do Application.ProcessMessages;

(EmbeddedWB1.document as IHTMLDocument2).designMode := 'On';

end;



procedure TForm1.SetDesignModeOff;

begin

EditServices.RemoveDesigner(ActiveDesigner);

(EmbeddedWB1.document as IHTMLDocument2).designMode := 'Off';

end;



procedure TForm1.ConnectDesigner(EditDesigner: TEditDesigner);

begin

while Embeddedwb1.Busy do Application.ProcessMessages;

if Assigned(ActiveDesigner) then

EditServices.RemoveDesigner(ActiveDesigner);

(EmbeddedWB1.Document as IServiceProvider).Queryservice(SID_SHTMLEDITSERVICES, IID_IHTMLEditServices, EditServices);

EditServices.AddDesigner(EditDesigner);

ActiveDesigner := EditDesigner;

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

embeddedwb1.go('http://www.euromind.com/iedelphi');

SetDesignModeOn;

ConnectDesigner(EditDesigner1);

end;