Соединение с сервером

[DeDoK]

Здрастуйте форумчане!
Может кто знает как сделать так чтобы програма подключалась к
игровому серверу apeha.ru и получала с него инфу по персонажу:
здоровье и т.д. и выводила ее в ProgressBar.
пример такой программы есть здесь
http://www.megadiggers.com/res.html#
для примера берите ник Ангел правосудия
я так понял что там стоит таймер с периодом в 10 сек,
и каждые 10 сек прога
подключается к серверу и обновляет окно статуса перса.

И лично стилету: понял, болше не буду

[eoln]

Я не знаю как именно хранится эта информация, но... Вот код есть (не знаю откуда) для скачивания странички Url в файл filname. Затем если параметры игрока записаны в нём, то задача сводится к поиску строки в файле.

uses ... WinInet;
...

function DownloadFile(const Url: string; filname:string): string;
type
    buf=array[0..1024] of char;
var
   NetHandle: HINTERNET;
   UrlHandle: HINTERNET;
   Buffer: buf;
   BytesRead: cardinal;
   fil:file of buf;
begin  
    Result:='';
    NetHandle:=InternetOpen('Delphi 7.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if Assigned(NetHandle) then begin
       UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
       if Assigned(UrlHandle) then begin
          { UrlHandle правильный? Начинаем загрузку }
          assignfile(fil,filname);
          rewrite(fil);
          FillChar(Buffer, SizeOf(Buffer), 0);
          repeat
              result:='save';//Result := Result + Buffer;
              FillChar(Buffer, SizeOf(Buffer), 0);
              //AllByte:=AllByte+SizeOf(Buffer);
              InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
              write(fil,Buffer);
          until BytesRead = 0;
          closefile(fil);
          InternetCloseHandle(UrlHandle);
       end else begin
          { UrlHandle неправильный. Генерируем исключительную ситуацию. }
          raise Exception.CreateFmt('Нет доступа к %s', [Url]);
       end;
    InternetCloseHandle(NetHandle);
    end else
    { NetHandle недопустимый. Генерируем исключительную ситуацию }
    raise Exception.Create('Unable to initialize Wininet');
end;