Многострочная метка

Label1->Caption = L"м\u00B3";

void TForm1::fDrawTextUp(int x, int y, AnsiString aDown, AnsiString aUp)
{
    int d_len = Canvas->TextWidth(aDown);
    int d_ht  = Canvas->TextHeight(aDown);
 
    y-=d_ht;
 
    Canvas->TextOut(x, y, aDown);
    y-=d_ht/2;
    x+=(d_len+2);
    Canvas->TextOut(x, y, aUp);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    fDrawTextUp(Edit1->Left, Edit1->Top, "M", "3");
}
//---------------------------------------------------------------------------

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void fDrawTextUp(int, int, AnsiString, AnsiString);
};

Label1->Caption = "м^3 или z_6";

// перед классом формы:
namespace SupSub_Label
{
    class TLabel : public Stdctrls::TLabel
    {
        DYNAMIC void __fastcall DoDrawText(Types::TRect &Rect, int Flags)
        {
            Canvas->FillRect(Rect);
            TFont *FFont = new TFont;
            FFont->Assign(Canvas->Font);
 
            int x_pos = 1;
            bool is_sup = false, is_sub = false;
            for(int i = 1; i <= Caption.Length(); i++)
            {
                is_sup = (i > 1) && (Caption[i - 1] == '^');
                is_sub = (i > 1) && (Caption[i - 1] == '_');
                if(Caption[i] != '_' && Caption[i] != '^')
                {
                    if(is_sub)
                    {
                        Canvas->Font->Height = 8 * Canvas->Font->Height / 10;
                        Canvas->TextRect(Classes::Rect(x_pos, Rect.Top, x_pos + Canvas->TextWidth(Caption[i]), Rect.Bottom),
                                         x_pos, abs(8*Canvas->Font->Height - 10*FFont->Height) / 10, Caption[i]);
                        x_pos += Canvas->TextWidth(Caption[i]);
                    }
 
                    if(!is_sub && !is_sup)
                    {
                        Canvas->Font = FFont;
                        Canvas->TextRect(Classes::Rect(x_pos, Rect.Top, x_pos + Canvas->TextWidth(Caption[i]), Rect.Bottom),
                                         x_pos, 0, Caption[i]);
                        x_pos += Canvas->TextWidth(Caption[i]);
                    }
 
                    if(is_sup)
                    {
                        Canvas->Font->Height = 9 * Canvas->Font->Height / 10;
                        Canvas->TextRect(Classes::Rect(x_pos, Rect.Top, x_pos + Canvas->TextWidth(Caption[i]), Rect.Bottom),
                                         x_pos, -abs(8*Canvas->Font->Height - 10*FFont->Height) / 20, Caption[i]);
                        x_pos += Canvas->TextWidth(Caption[i]);
                    }
                }
                Canvas->Font = FFont;
            }
            delete FFont;
        }
    };
};
#define TLabel SupSub_Label::TLabel