Delphi Parsing

[vaddd]

решил начать писать парсер и пока хотел сделать парсинг заголовка страницы. вот код

procedure TForm1.Button1Click(Sender: TObject);
var a,b:string; c,d:integer;
begin
a := idHttp1.Get (Edit1.Text);
c := Pos ('<title>',a);
d := Pos ('</title>',a);
b := Copy (a,c+7,d);
Memo1.Lines.Add (b);
end;

но он, берет начало заголовка правильно, а дальше копирует дофига хтмл кода...

[zotox]

Параметры COPY:
Первый параметр: откуда копировать.
Второй: со сколького символа копировать.
Третий: сколько символов копировать.

Предпологаю что нужно так вызывать:
Copy(a,c+7, d - c + 7);

[vaddd]

спасибо! в следующий раз буду внимательней читать описание функций!