extern "C" AnsiString __declspec(dllexport) dateToSqlQuery(System::TDateTime);

AnsiString dateToSqlQuery(System::TDateTime dt){
  AnsiString ret;
  Word y, m, d;
  DecodeDate(dt, y, m, d);
#if SERVER_TYPE==MSSQL
  ret=String(y);
  if(m< 10 ) ret=ret+"0"+String(m);
  else ret=ret+String(m);
  if(d< 10 ) ret=ret+"0"+String(d);
  else ret=ret+String(d);
#elif  SERVER_TYPE==FIREBIRD
  if(d< 10 ) ret=ret+"0"+String(d);
  else ret=ret+String(d);
  ret=ret+".";
  if(m< 10 ) ret=ret+"0"+IntToStr(m);
  else ret=ret+String(m);
  ret=ret+".";
  ret=String(y);
#endif
  return ret;
}
//---------------------------------------------------------------------------

  //В первой же строке и ошибка!! (Я просто скопировал это из другого места)
  //Я определяю функцию с параметром AnsiString, когда надо TDateTime!!!
  //typedef AnsiString (__stdcall *Function)(AnsiString);
  //Вот как надо, блин!!!
  typedef AnsiString (__stdcall *Function)(TDateTime);
  Function dsql=NULL;
  HINSTANCE dllLibrary=LoadLibrary("funclib.dll");
  dsql=(Function)GetProcAddress(dllLibrary, "_dateToSqlQuery");
  Label2->Caption="Ñòðîêà: "+dsql(DateTimePicker1->Date);
  FreeLibrary(dllLibrary);