Mostrar iconos de archivos en ListBox

[aguml]

Amigo tengo un problema aquí:

Código PHP:

void __fastcall TForm1::ListBoxSeleccionadosDrawItem(TWinControl *Control, int Index,
          TRect &Rect, TOwnerDrawState State)
{
    const int SPACE_IMG = 5;
    TListBox *LB = dynamic_cast<TListBox*>(Control);
    TRect R = Rect;
    WideString s = LB->Items->Strings[Index];
    int textHeight = LB->Canvas->TextHeight(s);
    int textLeft   = R.left + ImageList1->Width + SPACE_IMG;
    int textTop    = R.top + R.Height() / 2 - textHeight / 2;

    ImageList1->Draw(LB->Canvas, R.left, R.top, Index);
    LB->Canvas->TextOutA(textLeft, textTop, s);
} 


El error que me da es este:

[bcc64 Error] Unit1.cpp(713): no member named 'TextOutA' in 'Vcl::Graphics::TCanvas'

Si pongo "LB->Canvas->TextO" el autocompletado me muestra esto:

https://ibb.co/kXjXc6y

He probado a usar AnsiString, WideString y UnicodeString y siempre me muestra el mismo error.
¿Puedes ayudarme?