Operator oder Semikolon fehlt

[0nk3lz]

Ich stelle die Frage jetzt hier, weil ich schon seit mehreren Tagen vergeblich versuche, diesen Fehler ausfindig zu machen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ShellAPI;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    StaticText10: TStaticText;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn23: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  downloader: TIdHttp;
  fs: TFileStream;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Close();
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  fs := TFilestream.Create('C:\MeinVirus.exe');
  try
    downloader := TIdHttp.Create;
    try
      downloader.Get('http://blubb.de/datei.dat', fs);
    finally
      downloader.free;
    end;
  finally
    fs.free;
  end;
end

Er sagt:

Code:

[Fehler] Unit1.pas(81): Undefinierter Bezeichner: 'TIdHttp'
[Fehler] Unit1.pas(100): Es gibt keine überladene Version von 'Create', die man mit diesen Argumenten aufrufen kann
[Fehler] Unit1.pas(102): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(104): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(106): Operator oder Semikolon fehlt
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Ich hoffe hier kann mir nun jemand weiterhelfen...^^