program updater;

uses
 KOL,
 Windows,
 Messages,
 KOLHTTPDownload ;

var
Form ,buCheck :pControl;
fileToGet:string;
DL:PHTTPDownload;
//-----------------------------

Procedure Check ;
begin
DL.GetResource( fileToGet);
end;

Procedure DLDownload(Sender: PControl; Data: PStream);
begin
  Data.SaveToFile( 'c:\file.upd', 0, Data.Size );
end;

begin
Applet := NewApplet('Updater');
Form := NewForm(Applet,'Updater');

fileToGet:='http://dmitry.e2e.ru/file.upd';

 buCheck := NewButton(pTop,'Проверить');
 buCheck.OnClick := TOnEvent( MakeMethod( nil, @Check ) );

 DL := NewHTTPDownload;
 DL.OnDownload := THttpDownloadEvent( MakeMethod( nil, @DLDownload ) );
run(Applet);
end.