Hola de nuevo.
Releyendo tu mensaje, creo que te referis al nombre de la clase (no me dí cuenta en la primera leida).
En ese caso cambiá en el código anterior esta linea:
Código Delphi
[-]
ListBox1.Items.Add(Forms[i].Name + ' ' + Forms[i].Caption)
Por esta:
Código Delphi
[-]
ListBox1.Items.Add(Format('Name: %s, Caption: %s, ClassName: %s',
[Forms[i].Name ,Forms[i].Caption, Forms[i].ClassName]))
Saludos.