procedure TDeskBar.CalendarClick(Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  outlook, NameSpace, Termine, Termin: OleVariant;
  i,n: Integer; Terminstr: String;
begin
  try
  for n := 0 to Calendarlist.items.Count do
  begin
    Calendarlist.Items.Delete(n);
  end;
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
  for i := 1 to Termine.Items.Count do
  begin
    if Calendar.Date = trunc(Termine.Items.Item(i).start)then
    begin
      Terminstr := DateTimetoStr(Termine.Items.Item(i).start) + ' ' + Termine.Items.Item(i).subject;
      Calendarlist.Items.Add(Terminstr);
    end;
  end;
  Outlook := UnAssigned;
  except
  ShowMessage('Beim importieren ist ein Fehler aufgetreten. Möglicherweise ist Outlook nicht konfiguriert.');
  end;
end;