[Picard]

void __fastcall TRead::DisplayIt() 
{ 
	   //Muestra las cadenas recibidas. 
	   frmPrincipal->Flujodedatos->SetSelTextBuf(InBuff); 
	   AnsiString strInBuff = AnsiString(InBuff); 
	   int pos; 

	   if(strInBuff.SubString(1, 6) == "$GPRMC") 
		 { 
		 //Quitamos la etiqueta 
		 strInBuff = strInBuff.SubString(7, strInBuff.Length() - 7); 
		 //Primera coma, no me interesa el dato	//091329 
		 pos = strInBuff.Pos(","); 
		 strInBuff = strInBuff.SubString(pos +1, strInBuff.Length()-pos-1); 
		 //Segunda, lo mismo					   //A 
		 pos = strInBuff.Pos(","); 
		 strInBuff = strInBuff.SubString(pos +1, strInBuff.Length()-pos-1); 
		 //Tercera, ahora aparece la ¿latitud?	 //4151.249 
		 pos = strInBuff.Pos(","); 
		 frmPrincipal->lblLatPos->Caption = strInBuff.SubString(1, pos - 1); 
		 strInBuff = strInBuff.SubString(pos +1, strInBuff.Length()-pos-1); 
		 //Ahora viene una N ¿latitud tb? (se lo añado a Latitud) 
		 pos = strInBuff.Pos(","); 
		 frmPrincipal->lblLatPos->Caption = Latitud + strInBuff.SubString(1, pos - 1); 
		 strInBuff = strInBuff.SubString(pos +1, strInBuff.Length()-pos-1); 
		 // 
		 ... 
		 } 
}

Donde InBuff es el Buffer de entrada de datos y flujodedatos es un TMemo por donde visualizo las cadenas nmea

$GPGLL,4151.249,N,00317.047,E,091326,A*2D
$GPRMB,V,,,,,,,,,,,þ*6ö
$GPRMC,091326,A,4151.249,N,00317.047,E,002.0,291,230204,000,E*7E
$GPVTG,274,T,274,M,001.9,N,003.5,K*40
$GPAAM,V,V,,N,*38
$GPAPB,A,A,,,N,V,V,,M,,,M,,M*47
$GPBWC,091328,,,,,,T,,M,,N,*17
$GPGGA,091328,4151.249,N,00317.046,E,1,04,03.0,-0022,M,50,M,,*65
$GPGLL,4151.249,N,00317.046,E,091328,A*22

Estas son las cadenas nmea que recibo. los errores que me dan son los siguientes, el caption de los Tlabel desaparece al cabo de unos instantes de ser recibidos, y no siempre consigo pasar los parametros deseados a los caption de los tlabel,aparece informacion no deseada.
gracias