Cómo guardar contenido del WebBrowser?

[luisb]

Hola...

Acá pongo la manera que encontré de guardar el contenido del webBrowser... lo encontré buscando en Internet...

procedure TForm1.webBSaveHTML( wb :TWebBrowser; const FileName :string);
var PersistStream : IPersistStreamInit;
Stream : IStream;
FileStream : TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('El documento no contiene información!.');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
if Failed(PersistStream.Save(Stream, True))
then ShowMessage('No se pudo guardar la información!');
finally
FileStream.Free;
end;
end;

Pero tengo un problema... el método anterior graba perfectamente... solo que como necesito que grabe una vez que se termine de cargar la url... he probado con los eventos onDocumentComplete y con onDownloadComplete... pero de los dos modos no espera que se acaba de descargar la url y me crea problemas... lo probé ejecutandolo desde un boton visualizando la descarga... en la aplicación el webBrowser está invisible.... y funciona... alguna idea de como lograr controlar que la descarga esté realmente completada??...

> Luis