program Info_Amministrazioni_Pubbliche;        

const
 ExportFile    = 'C:\temp\Info.htm';
 
var
  i : integer;
  Data_Com : string;  

procedure OnDocumentComplete(URL : string);
begin                                      
  if IsPartOf('http://www.sviluppoeconomico.gov.it/news/index.php?sezione=news&tema_dir=tema2', URL) then
    begin
      Writefl('<p><font face="Arial" color="#FF0000"><b>MSE News</b></font></p>');
      for i := 0 to 10 do
        begin
          Data_Com := GetTableCellURLS(26, i, 0);
          Writefl(Data_Com);
        end;
      CloseFile;
    end
  else if IsPartOf('http://www.sviluppoeconomico.gov.it/comunicati/index.php?sezione=comunicati&tema_dir=tema2', URL) then
    begin
      Writefl('<p><font face="Arial" color="#FF0000"><b>MSE Comunicati</b></font></p>');
      for i := 0 to 10 do
        begin
          Data_Com := GetTableCellURLS(26, i, 1);
          Writefl(Data_Com);
        end;
      GotoURL('http://www.sviluppoeconomico.gov.it/news/index.php?sezione=news&tema_dir=tema2');                                  
    end;
end;                                  

begin
  ReWrite(ExportFile);
  Navigate('http://www.sviluppoeconomico.gov.it/comunicati/index.php?sezione=comunicati&tema_dir=tema2');
end.