Delphi-PRAXiS - Delphi Problem mit D2007 bei Terminübergabe an Outlook

Ich muss alte Projekte von Delphi 7 auf Delphi2007 anpassen.
in einen Projektabschnitt zur Terminübergabe an Outlook habe ich ein Problem.
Unter Delphi2007 kennt er in USES die Bezeichnung „OutlookXP“ nicht.
Fehlermeldung: [Pascal Fataler Fehler] Unit1.pas(7): F1026 Datei nicht gefunden: 'OutlookXP.dcu'
(Unter Delphi 7 funktioniert es aber.)
Muss ich in Delphi2007 noch etwas einbinden oder ist nur der Code zu ändern.

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ComCtrls,ComObj, OutlookXP, Mask;

type

  TForm1 = class(TForm)

    BitBtnCalender: TBitBtn;

    DateTimePicker1: TDateTimePicker;

    EditSubject: TEdit;

    EditLocation: TEdit;

    MemoBody: TMemo;

    Zeit: TMaskEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Dauer: TEdit;

    Label6: TLabel;

    Label7: TLabel;

    procedure BitBtnCalenderClick(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtnCalenderClick(Sender: TObject);

 var

  aOutlook   : Variant;

  aMAPI      : Variant;

  aFolder    : Variant;

  aCalendar  : Variant;

begin

   Screen.Cursor := crHourglass;

   aOutlook := CreateOleObject('Outlook.Application');

  try

    aMAPI := aOutlook.GetNameSpace('MAPI');

    aFolder := aMAPI.GetDefaultFolder(olFolderCalendar);

    aCalendar := aMAPI.GetDefaultFolder(olFolderCalendar).Items.Add;

    aCalendar.Start := StrToTime(Zeit.Text) + Int(DateTimePicker1.Date);

    aCalendar.Duration := StrToInt(Dauer.Text);

    aCalendar.Subject := EditSubject.Text;

    aCalendar.ReminderMinutesBeforeStart := 30;

    aCalendar.ReminderPlaySound := True;

    aCalendar.ReminderSet := True;

    aCalendar.Location := EditLocation.Text;

    aCalendar.Body := MemoBody.Text;

    aCalendar.Save;

  finally

    aOutlook := Unassigned;

    Screen.Cursor := crDefault;

  end; 

end;

end.