[Picard]

Gracias,esta solucionado

de la siguiente manera:

 void __fastcall TfrmPrincipal::EasyMap1MouseMove(TObject *Sender,
	  TShiftState Shift, int X, int Y)
{
	   /*Declaracion de mapX y mapY*/
	   long double fx,fy;
	   AnsiString buf;
	   /*Pasa la posicion del mouse a lso Tlabel correspondientes*/
	   EasyMap1->ScreenToMap(X,Y,fx,fy);
	   lblLatMouse->Caption = buf.sprintf("%eº",fy);
	   lblLongMouse->Caption = buf.sprintf("%eº",fx);
	   Application->ProcessMessages();
}