2 problemy z kodem zrodlowym www

1. Jak pobrac kod zrodlowy strony www do memo1?
2. Jak usunac tagi?(np. <centert>lol</span>) zeby zostalo tylko lol??

z gory dzięki

Ja se teraz mimo godz. zrobilem fajna funkcje (zobaczymy czy bedzie mi sie podobac rano :P)

function usun_tagi(str:string):string;
begin
if (pos('<',str)=0) or (pos('>',str)=0) then usun_tagi:=str else
begin delete(str,pos('<',str),pos('>',str)-pos('<',str)+1); usun_tagi:=usun_tagi(str); end;

end;

// zmienilem tutaj kod na rekurencje, ale jednak nie polecam zmien znow na zwykla petelke, lub jesli masz jeszcze tamta to uzyj gdyz pewnie duzo bedzie tagow i moze wystapic stack owerflov :> - chociaz to czysto teoretycznie nie bedzie w ogole dzialc gdy dasz string '<>,><>,><<><><>>><<><><<>!<><> elo <><...>>><<><>' :]

Co do pobrania do memo to mozesz laczyc sie przez sockety i wysylac tekst jaki wysylaja przegladarki (na port 80 ofcrz) i w onrecivetext dodajesz do memo1;

o za ten kod dzieki wielkie ale :)...
jak pobrac przez te sockety ten kod??
PLZ o podanie kody bo nie wiem:(

var
  HTML : String;
begin
  HTML := idHTTP1.Get(EditAdresURL.Text);

  Memo.Lines.Text := HTML;

end;