for(int i=0;i<lista2->Count;i++){
tabla->Canvas->Brush->Color=clRed;
tabla->Canvas->Font->Color=clWhite;
tabla->Canvas->Font->Style== TFontStyles()<< fsBold;
tabla->Canvas->FillRect(area);
tabla->Canvas->TextOutA(0,tabla->Canvas->TextWidth(lista2->Strings[i]),lista2->Strings);
}
Porque esto no me escribe el texto????