Re: Access violation for TWebBrowser: fixes didn't work at all

I've found this:

Screen.Cursor := crAppStart;
try
while SummaryWebBrowser.Busy do
begin
Application.ProcessMessages;
Sleep(50);
end;
repeat
Application.ProcessMessages;
Sleep(50);
until SummaryWebBrowser.ReadyState = 4;
finally
Screen.Cursor := crDefault;
Document1 := SummaryWebBrowser.Document as IHTMLDocument2;
elem1 := Document1.all.item('htmlbox', 0) as IHTMLTextAreaElement;
elem1.value := MySummaryField;
end;

It works like a charm. However, thank you for your kind suggestions:
you put me in the right path. I hope I'll be able to help you in
something...

.