Обращение к сайту

[Алекссс]

Здравствуйте! Подскажите пожалйста почему не работает?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, idHTTP, Menus, ExtCtrls,Clipbrd, ComCtrls,INIFiles;

type TVal=record
  Typ:String;
  Edizm:String;
  Date:TDateTime;
  Value:Real;
  Incr:Real;
end;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HTTP: TIdHTTP;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 S: TStringList;
 P,I: integer;
 USD,EUR,RUB: string;
begin
 HTTP:=TIdHTTP.Create(nil);
 HTTP.HandleRedirects:=True;
 HTTP.ProtocolVersion:=pv1_0;
 HTTP.ProtocolVersion:=pv1_0;
 //

 S:=TStringList.Create;
 S.Text:=HTTP.Get('http://www.nbrb.by/');
 // Êóðñ âàëþò

 P:=S.IndexOf('#-------Êóðñû âàëþò---------');
 //
 if not (P=-1)
 then
  begin
   for i:=0 to 5 do
    begin
     inc(P);
     if Pos('EUR - ÅÂÐÎ',S.Strings[p])>0
     then USD:=S.Strings[p];
     if Pos('USD - Äîëëàð ÑØÀ',S.Strings[p])>0
     then EUR:=S.Strings[p];
     if Pos('RUB - Ðîññèéñêèé ðóáëü',S.Strings[p])>0
     then RUB:=S.Strings[p];
    end;
   //
   //
  end;
 Delete(USD,1,pos('/',USD));
 Delete(USD,1,pos(',',USD));
 Delete(USD,pos(',',USD),20);
 Delete(EUR,1,pos('/',EUR));
 Delete(EUR,1,pos(',',EUR));
 Delete(EUR,pos(',',EUR),20);
 Delete(RUB,1,pos('/',RUB));
 Delete(RUB,1,pos(',',RUB));
 Delete(RUB,pos(',',RUB),20);
 Label1.Caption:='Êóðñ âàëþò íà '+DateToStr(Now)+': '+#10#13+#10#13+'  Äîëëàð ÑØÀ: '+USD+#10#13+'  Åâðî: '+EUR+#10#13+'  Ðîññèéñêèé ðóáëü: '+RUB;
 // Ïîãîäà

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Label1.Caption:='Êóðñ âàëþò íà '+DateToStr(Date)+':';
end;

end.

ооооочень надо(((

оО русский не читается(((

[Mifody]

оО русский не читается(((

Конвертить надо в Win1251, делфя 7 кажись в ANSII работает. Ну или руками подправить, благо не много. А так, что - догадываться надо, что именно за кракозяблами спряталось?

Что именно не работает? Я, к примеру, "#-------" вообще на странице не нашел