void __fastcall TForMain::stat1DrawPanel(TStatusBar *StatusBar,      TStatusPanel *Panel, const TRect &Rect){    TCanvas *pCanvas=stat1->Canvas;    pCanvas->Font->Color=clGreen;    pCanvas->Font->Style=TFontStyles()<
    
     TextOut(Rect.left+20,Rect.top+1,str);}