if (a)
{
char buff[100];
GetClassName(a,buff,100);
// buff - CLASS
Form1->Caption=AnsiString(buff)+" "+szTitle;
}