Работа с патоками

[jocry]

Проблема:
Написал функцию которая отправляет пост запрос на Сервет, но в момент отправления то есть когда ещё не пришёл ответ приложение «становиться колом».
Вопрос:
Как создать поток и выполнять в нём эту функцию.

PHP код:

Function Linrefer (ssilka: string): string;
var  
request : TStringList;
adata:tstringstream;
HTTP: TIdHTTP;
begin
HTTP := TIdHTTP.Create(nil);
HTTP.Request.Host:='dsv.data.cod.ru/';
HTTP.Request.Referer:='http://dsv.data.cod.ru/';
HTTP.Request.UserAgent:='Mozilla/4.0 ( compatible; MSIE 6.0; Windows NT.5.1)';
HTTP.Request.AcceptLanguage:='ru-ru';
HTTP.Request.ContentType := 'x-www-form-urlencoded';
request := TStringList.Create;
request.Add('submit=1');
AData := TStringStream.Create('');
try
HTTP.Post(ssilka,request,Adata);
except on E:Exception do
////Чтобы небыло ошибки :-)
end;
  result:=HTTP.Response.Location;;
end; 


Заранее благодарен

[jocry]

Всё решил проблему.