Unresolved external при использовании GradientFill

void __fastcall TForm1::FormPaint(TObject *Sender)
{
 HDC hdc;
 hdc = GetDC(Form1->Handle);
 TRIVERTEX vert[2] ;
 GRADIENT_RECT gRect;
 vert [0] .x = 0;
 vert [0] .y = 0;
 vert [0] .Red = 0xff00;
 vert [0] .Green = 0x0000;
 vert [0] .Blue = 0x00ff;
 vert [0] .Alpha = 0x0000;
 
 vert [1] .x = 100;
 vert [1] .y = 100;
 vert [1] .Red = 0x00ff;
 vert [1] .Green = 0x0000;
 vert [1] .Blue = 0xff00;
 vert [1] .Alpha = 0x0000;
 
 gRect.UpperLeft = 0;
 gRect.LowerRight = 1;
 GradientFill(hdc,vert,2,&gRect,1,GRADIENT_FILL_RECT_H);
}
//---------------------------------------------------------------------------

  [Linker Error] Unresolved external 'GradientFill' referenced from C:\DOCUMENTS AND SETTINGS\PROJECT\UNIT1.OBJ

  HINSTANCE hinst_msimg32 = LoadLibrary("msimg32.dll");
  bool (WINAPI *GFill)(HDC, TRIVERTEX*, unsigned long, void*, unsigned long, unsigned long);
  if (hinst_msimg32)
  {
    GFill = (bool (WINAPI *)(HDC, TRIVERTEX*, unsigned long, void*, unsigned long, unsigned long))
    GetProcAddress(hinst_msimg32, "GradientFill");
  }
  if(GFill != NULL){
    HDC hdc;
    hdc = GetDC(Form1->Handle);
    TRIVERTEX vert[2] ;
    GRADIENT_RECT gRect;
    vert[0].x = 0;
    vert[0].y = 0;
    vert[0].Red = 0xff00;
    vert[0].Green = 0x0000;
    vert[0].Blue = 0x00ff;
    vert[0].Alpha = 0x0000;
 
    vert[1].x = 100;
    vert[1].y = 100;
    vert[1].Red = 0x00ff;
    vert[1].Green = 0x0000;
    vert[1].Blue = 0xff00;
    vert[1].Alpha = 0x0000;
    gRect.UpperLeft = 0;
    gRect.LowerRight = 1;
    ((*GFill))(hdc,vert,2,&gRect, 1, GRADIENT_FILL_RECT_H);
  }
  FreeLibrary(hinst_msimg32);