Функция выдает ошибку при автозапуске

void __fastcall TForm1::LogMemoChange(TObject *Sender)
{
AnsiString filename=GetCurrentDir()+"\\Log\\"+DateToStr(Date())+" Journal.txt";
  TStringList *temp_log = new TStringList;
  if (FileExists(filename))
  temp_log->LoadFromFile(filename);
  temp_log->AddStrings(log);
  temp_log->SaveToFile(filename);
  log->Clear();
  delete temp_log;
}

UnicodeString filepath = IncludeTrailingPathDelimiter(
                         GetSpecialFolderPath(0x29))+
                         IncludeTrailingPathDelimiter("Log")+
                         DateToStr(Date())+
                         " Journal.txt";

UnicodeString filepath = IncludeTrailingPathDelimiter(
  GetSpecialFolderPath(0x29))+
  IncludeTrailingPathDelimiter("Log")+ DateToStr(Date())+" Journal.txt";
  TStringList *temp_log = new TStringList;
  if (FileExists(filepath))
  temp_log->LoadFromFile(filepath);
  temp_log->AddStrings(log);
  temp_log->SaveToFile(filepath);
  log->Clear();
  delete temp_log;

GetSpecialFolderPath(0x29))+

[BCC32 Error] Unit1.cpp(2924): E2268 Call to undefined function 'GetSpecialFolderPath'

#include <shlobj.h>

// .H
private:  // User declarations
  UnicodeString GetSpecialFolderPath(int folder);
// .CPP
#include <shlobj.h>
// ...
UnicodeString TForm1::GetSpecialFolderPath(int folder)
{
  const SHGFP_TYPE_CURRENT = 0;
  wchar_t path[MAX_PATH];
  if (SUCCEEDED
      (SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,&path[0])))
    return path;
  else
    return "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  UnicodeString filepath = IncludeTrailingBackslash(
                           GetSpecialFolderPath(0x29))+
                           "my_zimbabve.file"; // CSIDL_SYSTEMX86);
  Label1->Caption= filepath;
}

ExtractFilePath(ParamStr(0))