Работа с ошибкой (потоки)

[cargo29]

Код потоков

{ TTNT }

procedure TTNT.Execute;
var
p:string;
begin
  inherited;
Form1.Memo1.Clear;
Form1.Memo1.Text:=utf8toansi(Form1.IdHTTP1.Get('http://www.tvpager.ru/tnt/'));
Form1.Memo1.Text:=Copy(Form1.Memo1.Text, Pos('<div style="font-size:13px;font-faily:arial;', Form1.Memo1.Text), Pos('<br><script type', Form1.Memo1.Text)-Pos('<div style="font-size:13px;font-faily:arial;', Form1.memo1.Text));
p:=Form1.Memo1.Text;
Insert('<br />',p, 25);
while Pos('<b>', p)>0 do
begin
Delete(p, Pos('<b>', p), 3);
end;
while Pos('</b>', p)>0 do
begin
Delete(p, Pos('</b>', p), 4);
end;
Form1.Memo1.Text:=Form1.header.Text+Form1.tnt.Text+p+Form1.konec.Text;
Form1.Memo1.Lines.SaveToFile('index.html');
GetDir(0, dir);
if SendFile(dir+'\index.html', 'http://megadom.ks8.ru/pereda4a/add.php') = true then
Form1.WebBrowser1.Navigate('http://megadom.ks8.ru/pereda4a/index.html');
end;

{ TCENTER }

procedure TCENTER.Execute;
var
p:string;
begin
  inherited;
  Form1.Memo1.Clear;
Form1.Memo1.Text:=utf8toansi(Form1.IdHTTP1.Get('http://www.tvpager.ru/tvcenter/'));
Form1.Memo1.Text:=Copy(Form1.Memo1.Text, Pos('<div style="font-size:13px;font-faily:arial;', Form1.Memo1.Text), Pos('<br><script type', Form1.Memo1.Text)-Pos('<div style="font-size:13px;font-faily:arial;', Form1.memo1.Text));
p:=Form1.Memo1.Text;
Insert('<br />',p, 25);
while Pos('<b>', p)>0 do
begin
Delete(p, Pos('<b>', p), 3);
end;
while Pos('</b>', p)>0 do
begin
Delete(p, Pos('</b>', p), 4);
end;
Form1.Memo1.Text:=Form1.header.Text+Form1.center.Text+p+Form1.konec.Text;
Form1.Memo1.Lines.SaveToFile('index.html');
GetDir(0, dir);
if SendFile(dir+'\index.html', 'http://megadom.ks8.ru/pereda4a/add.php') = true then
Form1.WebBrowser1.Navigate('http://megadom.ks8.ru/pereda4a/index.html');
end;

Вызываю в программе

procedure TForm1.Button16Click(Sender: TObject);
var
tnt:TTNT;
begin
tnt:=TTNT.Create(false);
end;


procedure TForm1.Button13Click(Sender: TObject);
var
cen:TCENTER;
begin
cen:=TCENTER.Create(false);
end;

Вообщем смысл проги такой загружает код страницы, обрабатывает, и отсылает страничку на хост после открываеться в браузере. но тут сталкнулся с проблемой когда я вызываю, например сначало { TCENTER } то загружаеться нормально все отображаеться без ошибок, после чего нажимаю { TTNT } то вижу что страница в браузере обновляеться а самми данные не меняються, то есть остаються данные { TCENTER } может что то я не так сделал в потоках мне кажеться

[cargo29]

Добавлю

procedure TForm1.Button10Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

тогда данные меняються как сделать что бы нормльно обрабатывало в потоке??? а то он не то загружает