Подключение gmp

#define mpz_set_si __gmpz_set_si
__GMP_DECLSPEC void mpz_set_si __GMP_PROTO ((mpz_ptr, signed long int));

#if __GMP_HAVE_PROTOTYPES
#define __GMP_PROTO(x) x
#else
#define __GMP_PROTO(x) ()
#endif

#if  defined (__STDC__)                                 \
  || defined (__cplusplus)                              \
  || defined (_AIX)                                     \
  || defined (__DECC)                                   \
  || (defined (__mips) && defined (_SYSTYPE_SVR4))      \
  || defined (_MSC_VER)                                 \
  || defined (_WIN32)
#define __GMP_HAVE_CONST        1
#define __GMP_HAVE_PROTOTYPES   1
#define __GMP_HAVE_TOKEN_PASTE  1
#else
#define __GMP_HAVE_CONST        0
#define __GMP_HAVE_PROTOTYPES   0
#define __GMP_HAVE_TOKEN_PASTE  0
#endif

typedef struct
{
  int _mp_alloc;        /* Number of *limbs* allocated and pointed
                   to by the _mp_d field.  */
  int _mp_size;         /* abs(_mp_size) is the number of limbs the
                   last field points to.  If _mp_size is
                   negative this is a negative number.  */
  mp_limb_t *_mp_d;     /* Pointer to the limbs.  */
} __mpz_struct;
 
typedef __mpz_struct mpz_t[1];  // ???

#include <vcl.h>
#include <stdio.h>
 
#include "gmp.h"
//#pragma comment(lib, "gmp.lib")
//#pragma comment(lib, "gmpDebug.lib")
 
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
#pragma argsused
 
HINSTANCE h;
 
typedef void (__import * ft1(mpz_t,long));
ft1 * fun1;
 
typedef void (__import * ft2(mpz_ptr, mpz_srcptr, mpz_srcptr));
ft2 * fun2;
 
typedef size_t (__import * ft3(FILE *, int, mpz_srcptr));
ft3 * fun3;
//----------------------------------------------------------------
int _tmain(int argc, _TCHAR* argv[])
{
system("chcp 1251");
 
fun1= NULL;
fun2= NULL;
fun3= NULL;
//  0
h=LoadLibraryA("C:\\Users\\fujitsu\\Desktop\\gmp\\gmp-dynamic\\gmp.dll");
if(h)
 {
              //  1
 fun1=(ft1*)GetProcAddress(h,"__gmpz_init_set_si");
 mpz_t x;
 if(fun1)   fun1(x,1);
 else printf("errr1\n");
              //  2
 fun2=(ft2*)GetProcAddress(h,"__gmpz_add");
 
 if(fun2) for ( int i = 0; i < 100; i ++ )   fun2( x, x, x );
 else printf("errr2\n");
 
              //  3
 fun3=(ft3*)GetProcAddress(h,"__gmpz_out_str");
 
 if(fun3) fun3( stdout, 10, x );
 else printf("errr3\n");
 
 FreeLibrary(h);
 }
else printf("errr0\n");
 
system("pause");
return 0;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#include "gmp.h"
 
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
#pragma argsused
 
HINSTANCE h;
 
typedef void (__import * ft1(mpz_t,long));
ft1 * fun1;
 
typedef void (__import * ft2(mpz_ptr, mpz_srcptr, mpz_srcptr));
ft2 * fun2;
 
typedef int (__import * ft3(const char *, ...));
ft3 * fun3;
 
//----------------------------------------------------------------
int _tmain(int argc, _TCHAR* argv[])
{
system("chcp 1251");
fun1=NULL;fun2=NULL;fun3= NULL;
//  0
h=LoadLibraryA("C:\\Users\\fujitsu\\Desktop\\gmp\\gmp-dynamic\\libgmp-3.dll");
if(h)
 {            //  1
 fun1=(ft1*)GetProcAddress(h,"__gmpz_init_set_si");
 mpz_t x;
 if(fun1)   fun1(x,1);
 else printf("errr1\n");
              //  2
 fun2=(ft2*)GetProcAddress(h,"__gmpz_add");
 if(fun2) for ( int i = 0; i < 100; i ++ )   fun2( x, x, x );
 else printf("errr2\n");
              //  3
 fun3=(ft3*)GetProcAddress(h,"__gmp_printf");
 
 if(fun3) fun3("%s is an mpz %Zd\n", "here", x);
 else printf("errr3\n");
 }
else printf("errr0\n");
 
FreeLibrary(h);
system("pause");
return 0;
}
//---------------------------------------------------------------------------

Memo1->Add(FloatToStr(fff));

mpf_t x,y,result;
 mpf_init_set_str(x, "1,761205825473894553453453451", 10);
 mpf_init_set_str(y, "1,926359112843908145425512765", 10);
 mpf_init(result);
 mpf_mul(result, x, y);
 
 Memo1->Lines->Add(FloatToStr(result));