[selevo]

ооо!
это выглядит интересно.

А как это вставить в мой код ?

у меня иначе выглядит объявления, форма же да чёда
какой тип проекта даёт такую заготовку ?

У меня-то начало и структура другая, нет никаких

Код:

program Project1;
 
 {$APPTYPE GUI}

Раз в пятилетку программы пишу поэтому не могу знать некоторые элементарные вещи.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,ClipBrd;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HTTP: TIdHTTP;
S:String;


implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  S:=IdHTTP1.Get('http://www.cbr.ru/');
    S:= copy(S,Pos('руб.',S)+16,5);    // парсим страницу  :)
    Clipboard.AsText:=S;
       // Clipboard.AsText:='1234567890';
         Form1.close;
end;



end.