Создание класса в динамической библиотеке

#ifndef _MYDLL_H
#define _MYDLL_H
 
 
#ifdef __DLL__
# define DLL_EI __declspec(dllexport)
#else
# define DLL_EI __declspec(dllimport)
#endif
 
extern "C" char* DLL_EI Code_Dec(char *s, char Key);
 
#endif
DLL_EI class String1
{
 public:
 char *s;
 int Length();
 String1& operator+=(String1 s1);
};

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <windows.h>
#pragma hdrstop
//---------------------------------------------------------------------------
 
#pragma argsused
#include "MyDLL.h"
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
//---------------------------------------------------------------------------
 char* Code_Dec (char* s, char Key)
{
for (int i=0; ; i++)
 {
  if (s[i]=='\0')break;
   s[i]=s[i]^Key;
   }
  return s;
}
 
 int String1::Length()
 {
   return strlen(s);
 }
 
 String1& String1::operator+=(String s1)
 {
   s=strcat(s, s1.s);
   return *this;
 }

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "MyDLL.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String1 s1, s2;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Label1->Caption="Длина строки: ";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit1->Text=Code_Dec(Edit1->Text.c_str(), 'A');
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  s1.s=Edit1->Text.c_str();
  Label1->Caption="Длина строки: "+IntToStr(s1.Length()); //метод Length() не разрешается, т.е.
}                                                                                //ошибка unresolved external
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  s2.s=Edit2->Text.c_str();
  s1.operator +=(s2);                                                //аналогичная ошибка, что и для метода Length()
  Edit1->Text=s1.s;
}
//---------------------------------------------------------------------------