Многопоточность

[CrazyDude]

Здравствуйте! Delphi начал изучать недавно, и вот пришло время многопоточности.
Есть такой код:

var page:string;
    i:integer;
begin
for i:=1 to strtoint(Edit1.Text) do
begin
  page:=HTTP.Get('http://plati.ru/asp/seller.asp?id_s='+inttostr(i));
  delete(page,1,pos('<a href="mailto:',page)+15);
  page:=copy(page,1,pos('">',page)-1);
  if page <> '<font color=red>нет</font>' then
  memo1.lines.Add(page);
end;

Этот код парсит страницу на мыло, если нашло то кидает его в memo1.
Прошу кого нибудь сделать программу многопоточной, хотя бы в 2 потока, и да, мне не лень, просто на примерах все лучше учится :3

[BOBAH13]

Сообщение от CrazyDude

мне не лень, просто на примерах все лучше учится :3

Ну тогда и вам Здравствуйте, и вот вам примерчик