求WebBrowser显示网页如何放入线程

我动态创建1个WebBrowser，我想让WebBrowser显示edit中的网页地址，并且有一个记时器到一定时间edit中的地址变化，因为有的网页较大或网络不好显示网页时，记时器会停止记时，询问网友说加入线程，并给了段代码，如下：
unit MyThreadPro;
interface
uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Controls, Forms, Dialogs,StdCtrls;
type
  TForm1 = class(TForm)
    UsedThread: TButton;
    NoUsedThread: TButton;
    procedure UsedThreadClick(Sender: TObject);
    procedure NoUsedThreadClick(Sender: TObject);
var
  Form1: TForm1;implementation
{$R *.DFM}
//这是线程函数，它可以放在下面程序的任何地方
function MyThreadFunc(P:pointer):Longint;stdcall;
var
  i:integer;
  DC:HDC;
  S:string;
begin
  DC:=GetDC(Form1.Handle);
  for i:=0 to 100000 do begin
    S:=Inttostr(i);
    Textout(DC,10,10,Pchar(S),length(S));
  end;
  ReleaseDC(Form1.Handle,DC);
end;procedure TForm1.UsedThreadClick(Sender: TObject);
var
  hThread:Thandle;//定义一个句柄
  ThreadID:DWord;
begin
  //创建线程，同时线程函数被调用
  hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
end;procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
  MyThreadfunc(nil);
  //没有创建线程时，直接调用线程函数
end;end. 
上面就是多线程的例子.你把代码放进那个MyThreadFunc里执行就行了.请问如何将WebBrowser.Navigate(Edit.text)写到这个MyThreadFunc函数里呢？也就是如何写这样的函数？