Retornar nome do form

Eu tenho um menuItem q chama, via programação eu form, por exemplo

procedure TformPrinc.Empresas1Click(Sender: TObject);
begin
AbreJanela(FormCadEmpresa, TFormCadEmpresa, ´FormCadEmpresa´);
end;

Eu estou precisando, em um outro form, saber o nome do form q eh chamado por akele determinado menuItem. Alguem sabe se tem como eu fazer isso??

Rafael Sangalli