1:
2:
3:
4:
5:
6:

  for i := 1 to length(str) do
    if (copy(str, i, length('<table>')) = '<table>') then
    begin
      // es wurde eine tabelle gefunden, hier kann gezählt werden 
      // i ist dann die position bis zu der du löschen musst, wenn du weißt dass du die richtige tabelle hast 
    end;					

1:

if (copy(str, i, length('<table name="Forenuebersicht">')) = '<table>') then					

1:
2:
3:

  str := IdHttp.Get('http://deinesiete.de');  //Seite in einen String downloaden
  str := Copy(str, pos('<table name="Forenuebersicht">', str), pos('</table>', str) - pos('<table name="Forenuebersicht">', str) + 8);
  //in Str steht jetzt die Tabelle drin, kannst also z. B. in einen WebBrowser laden					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin

  str:=IdHTTP.get(edit1.text);  //Seite in einen String downloaden
  str := Copy(str, pos('<table class="forenUebersicht" cellpadding="0" cellspacing="0" border="0" width="100%">', str), pos('</table>', str) - pos('<table class="forenUebersicht" cellpadding="0" cellspacing="0" border="0" width="100%">', str) + 40);
  //in Str steht jetzt die Tabelle drin, kannst also z. B. in einen WebBrowser laden
SaveStringToFile ('C:\table.htm', str);
  webbrowser1.Navigate('C:\table.htm');
end;					

1:
2:
3:
4:
5:

var
  downloader: TIdHTTP;
begin
  downloader := TidHTTP.create;
  //code von oben