anchor.diff:  	{$IFDEF KOL}
   		wantedsize: double;
   		currentsize: double;
  +    lastsize: double;
  +    i: double;
  +    c: longint;
   	{$ENDIF}
   begin
   	dir := IncludeTrailingPathDelimiter(ExtractFileDir(paramstr(0)));
  
positive.code:   applet.createwindow;
  end;
  {$ENDIF}
  
  function askQuestion(Question: String): boolean;
  begin
  
negative.code:   terminateDownload := true;
  end;
  
  procedure setProgress(value: integer; msg: string);
  begin
    ProgressBar.progress := value;
    labelprogress.Caption := msg;
    //self.Caption := pChar('DMDirc Setup - '+CaptionLabel.Caption);
    //Application.Title := self.Caption;
    applet.processmessages;
  