[Delphi] idHTTP - POST - wyszukiwanie filmow z www

Fragment kodu odpowiedzialnego za szukanie

<script type="text/javascript">
function searchPage(page, query)
{
	var page
	var query

		http.open('post', 'search.php', true);
		
		var params = "&search=" + query + "&page=" + page;

		http.setRequestHeader("Accept-Charset", "ISO-8859-1");
		http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
		http.setRequestHeader("Content-length", params.length);
		http.setRequestHeader("Connection", "close");

		http.onreadystatechange = handleSearch;

		http.send(params);
}

function handleSearch()
{
    if(http.readyState == 4)
	{
		var response = http.responseText;

        if(response != 'Loading...')
	{
	   document.getElementById('search-results').innerHTML = response;
        }
    }
}
</script>

Moj kod:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  output,input : Tstringstream;
  MyStringList : TStringList;
begin
  try
    input:=Tstringstream.Create('');
    output:=Tstringstream.Create('');

    IdHTTP1.Request.AcceptCharSet := 'ISO-8859-1';
    IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP1.Request.Connection := 'close';
    IdHTTP1.Connect();

    input.WriteString('&search=' + Edit1.Text);
    IdHTTP1.Post('http://media.hatak.pl/search.php',input,output);

//  Edit3.Text := output.DataString;
    Edit2.Text := idHTTP1.ResponseText;

    MyStringList := TStringList.Create;
    MyStringList.Add(output.DataString);
    MyStringList.SaveToFile('MyFile.html');
    WebBrowser1.Navigate('M:\MyFile.html');

  finally
    input.Free;
    output.Free;
  end;
end;

Witam
Potrzebuje dodac do mojego programu opcje wyszukiwania filmow ze strony http://media.hatak.pl

Ten kod co umiescilem dziala, pobiera mi wyniki i wyswietla w webbrowser lecz wyniki sa w postaci takich linkow:

nazwa filmu

a ja potrzebuje zeby byly w takiej formie

Witam

Jako ze nie dostalem odpowiedzi to sam doszedlem jak to zrobic.
Tylko mam jeden problem ktorego nie umiem rozwiazac...

Kod ponizej szuka w pliku slowa 'index.php' i dodaje przed nim adres strony.
Kod dziala ok, ale dodaje adres tylko do pierwszego wystapienia slowa 'index.php'.
Nie wiem jak to dac w petle zeby sprawdzil cala zawartosc Memo i dodal adres do wszystkich 'index.php'.

Bylbym bardzo wdzieczny za zmodyfikowanie tego kodu ponizej.

procedure TForm1.BitBtnClick(Sender: TObject);
var
  S: String;
  I: Integer;
begin
  S := Memo1.Text;
  I := Pos('index.php', S);
  if (I > 0) then
    Insert('http://media.hatak.pl/', S, Pos('index.php', S));
    Memo1.Text := S;
    Memo1.Lines.SaveToFile('M:\OK.html');
    ShellExecute(self.WindowHandle,'open',PChar('M:\OK.html'), nil,nil, SW_SHOWNORMAL);
end;

nie ma to jak pisac samemu ze soba :>
juz zmienilem kod
temat mozna zamknac albo usunac !