type TmyThread = class(TThread)
procedure Execurte; override;
end;

....

procedure TMyThread.Execute;
begin
// Код функции
end;

var MyThread : TMyThread;
begin
  MyThread := TMyThread.Create(False);
end;

procedure fcn();
begin
  {come thread code}
end;

procedure TForm1.Button1Click(Sender: TObject);
 var thid: cardinal;
begin
  CreateThread(nil,0,@fnc,nil,0,thid);
end;

HTTP/1.1 200 OK
Server: nginx/0.7.59
Date: Fri, 23 Apr 2010 19:58:00 GMT
Content-Type: text/html; charset=windows-1251
Connection: keep-alive
X-Powered-By: PHP/5.2.6-1+lenny3
Pragma: no-cache
Cache-control: no-store
P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"
Set-Cookie: l=33244867; expires=Wed, 04-May-2011 12:40:08 GMT; path=/; domain=login.vk.com
Set-Cookie: p=a73839ac6d728d1f88f44ce2f9db1c1650ca; expires=Sat, 16-Apr-2011 06:28:04 GMT; path=/; domain=login.vk.com
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 346