Как создать поток

[record222]

Здравствуйте! Объясните пожалуйста как создать поток для данного кода.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
A:String;
B:String;
value:String;
m:integer;
Ed:String;
begin
  if POS('http://' ,Edit1.Text)<>0 then
begin
pic:=TGIFImage.Create;
pic2:=TGifImage.Create;
memory:=TMEMORYSTREAm.Create;
memory2:=TMEMORYSTREAM.create;
idhttp1.Get('http://www.free-pagerank-checker.com/pr.php?url='+Edit1.Text, memory);
memory.Position:=0;
pic2.LoadFromStream(memory);
Image2.Picture.Assign(pic2);
idhttp1.Get('http://yandex.ru/cycounter?'+Edit1.TExt, memory2);
memory2.Position:=0;
pic.LoadFromStream(memory2);
Image1.Picture.Assign(pic);
if POS('http://', Edit1.Text)<>0 then
ed:=Edit1.Text;
{delete(ed,1,7); }
A:=Idhttp1.Get('http://bar-navig.yandex.ru/u?ver=2&show=32&url='+edit1.Text);
B:=copy(A, POS('value="', A)+7,pos('"/',A)-POS('value="',A)-7);

Знаю в интернете много различных статей по поводу создания потоков, но я их не могу понять

[Пепел Феникса]

http://programmersforum.ru/showthread.php?t=91699
посмотрите там пример.