Nome do indice ativo

Olá a todos
:?: Estou fazendo uma função que apresenta num Statubar as seguintes informações:
1.Nome da Tabela
2.Nome do Campo do Índice Ativo
3.Estado da Tabela (Edit, Insert, Browse, etc...)
4.Total de Registros na Tabela
Meus problemas são:
- Como obter o nome do campo do índice ativo
- Como obter o estado da tabela.
Ex: StatusBar1.Panels[3].Text := ´ ´ + Table1.State (não dá).
-Como passar como parametro o nome do form para o StatusBar.
Abraços e Obrigado.
Neto