procedure TForm1.Button1Click(Sender: TObject);
var ie: Variant;
begin
ie := CreateOleObject('internetexplorer.application');
ie.Navigate('www.clubdelphi.com');
while ie.Busy do Sleep(1000);
ie.Document.ExecCommand('saveas', false, 'saved.htm');
ie.Quit;
end;