Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AvramsAutoUpdate;

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

var
  Form1: TForm1;
  Updater: TAvramsAutoUpdater;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//kreiramo updater
Updater := TAvramsAutoUpdater.Create;
//podesimo podatke
Updater.AutoUpdateURL:='http://localhost/aau/';
Updater.IniFileName:='data.upd';
Updater.AppPath:=ExtractFilePath(Application.ExeName);

//skidamo ini, parsiramo, izdvajamo nove fajlove i skidamo ih
if Updater.DownloadIniFile then begin
        if Updater.ParseIniFile then begin //ovde se desava greska
            if Updater.GetNewFiles then begin
                    Updater.DownloadNewFiles;
             end;
        end;
end;
//ostalo je da se uradi automatska zamena fajlova

//ispisujemo gresku ako je bilo iste...
if Updater.AAU_LASTERROR<>'' then ShowMessage(Updater.AAU_LASTERROR);
end;

end.