TPuertoSerie *comm = new TPuertoSerie(NULL);
comm->WCadPuerto(dni);
comm->RPuerto(caracter);
if (*caracter=='C')
Shape1->Brush->Color=clGreen;
if (*caracter=='F')
Shape2->Brush->Color=clRed;
comm->ClosePuerto();
delete comm;