Fórum erro E2003 Undeclared identifier: TIdAuthentication #592764

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnBaixarClick(Sender: TObject);
begin
var fileDownload:
TFileStream;

begin
dlgSave.Filter := ''''''''Arquivos'''''''' + ExtractFileExt(edtUrl.Text) + ''''''''|*'''''''' + ExtractFileExt(edtUrl.Text);
dlgSave.FileName := ''''''''Arquivo'''''''';
if dlgSave.Execute then
begin
fileDownload := TFileStream.Create(dlgSave.FileName + ExtractFileExt(edtUrl.Text), fmCreate);
try
pbprogresso.Visible := True;
lblStatus.Visible   := True;
btnBaixar.Enabled   := false;
IdHTTP.Get(edtUrl.Text, fileDownload);
finally
FreeAndNil(fileDownload);
end;
end;
end;
end;

procedure TForm1.btnCancelarClick(Sender: TObject);
begin
     idhttp.Disconnect;
end;

procedure TForm1.btnFecharClick(Sender: TObject);
begin
     Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);

function RetornaPorcentagem(ValorMaximo, ValorAtual: real): string;

var
resultado: Real;

begin

resultado := ((ValorAtual * 100) / ValorMaximo);
Result    := FormatFloat(''''''''0%'''''''', resultado);

end;

function RetornaKiloBytes(ValorAtual: real): string;
var
resultado : real;
begin
resultado := ((ValorAtual / 1024) / 1024);
Result    := FormatFloat(''''''''0.000 KBs'''''''', resultado);
end;



Begin

end;

procedure TForm1.IdHttpAuthorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
     pbprogresso.Max := AWorkCountMax;
end;

procedure TForm1.IdHttpWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
    pbprogresso.Position := AWorkCount;
lblStatus.Caption    := ''''''''Baixando ... '''''''' + RetornaKiloBytes(AWorkCount);
form1.Caption := ''''''''Download em ... '''''''' + RetornaPorcentagem(pbprogresso.Max, AWorkCount);
end;

procedure TForm1.IdHttpWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
     pbprogresso.Position := 0;
     frm1.Caption := ''''''''Finalizado ...'''''''';
     lblStatus.Caption    := ''''''''Download Finalizado ...'''''''';
     pbprogresso.Visible  := false;
      btnBaixar.Enabled    := true;
      if ckbOpcao.Checked then
      Application.Terminate;
end;

end.