save page

hi

i need to save a webpage as .xml how can i do this suggest me
this is simple my code

unit aa;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls,ShlObj,bb, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.web1.Navigate('http://www.w3schools.com/xml/simple.xml');
Form2.web2.Navigate('http://www.google.com');
Timer1.Enabled:=true;
Timer1.Interval:=4000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{

here i want to put code for save both web1 and web2  page
}
end;
end.

and other form is :::

unit bb;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm2 = class(TForm)
    web1: TWebBrowser;
    web2: TWebBrowser;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation
{$R *.dfm}
end.




suggest me

thanx