Есть ли функции, возвращающие название активной формы в виде строки

Доброго времени суток!

Такой вопрос: в приложении есть несколько форм с одинаковым тулбаром. Можно ли написать процедуру для теста тулбаров, но чтобы она была применима на всех этих формах? Т.е. проблема в том, что названия кнопок совпадают, а форм отличаются. Есть ли функции, возвращающие название активной формы в виде строки?

Понимаю, что вопрос может быть глупый, но я только начинаю постигать TestComplete и эта ситуация поставила в тупик.

Язык приложения Delphi 7, скриптовой язык в тесткомплите тоже Дельфи. Версия тесткомплита 7.50.

Есть ли функции, возвращающие название активной формы в виде строки?

ActiveWindow: OleVariant;
ActiveWindow := Sys.Desktop.ActiveWindow - возвращает активное окно

WindowName: string;
WindowName := ActiveWindow.Name - имя
или
WindowName := ActiveWindow.FullName - полное имя с путем
Но я бы вам не рекомендовала заморачиваться активными окнами, просто напишите процедуру где будут проверяться кнопки, а форму передавайте как параметр, например:
procedure AssertFormButtons(aForm: OleVariat);
begin
Assert('Проверка активности кнопки 1', aForm.Panel1.Buotton1.Enabled, true);
end;

AssertFormButtons(sys.Process1.Form1);

Большое спасибо!