unit.pas в проекте buider

unit2.pas
---------------------------------------
unit Unit2;

interface

uses
DBClient, DB;

implementation
{$ObjExportAll On}

type
pTClientDataSet = ^TClientDataSet;
pVARIANT = ^VARIANT;

procedure PasProc(cds: pTClientDataSet; v: VARIANT); cdecl;
begin

cds.Data := v;

end;

end.
---------------------------------------


unit1.cpp
---------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"

extern void PasProc(TClientDataSet *cds, VARIANT v);

TForm1 *Form1;

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
...

PasProc(ClientDataSet1, v);
}
----------------------------------

все компилится, но ругается линкер
[Linker Error] Unresolved external 'pasproc(dbclient::tclientdataset *, tagvariant)' referenced from D:\PROJECTS\DCOM\UNIT1.OBJ

в чем дело? хелп!