Procedimento ou função para mostrar caption do form em uma label

Prezados,
Como criar uma função ou procedimento para mostrar na tela principal o nome de cada formulário no caption de uma label, com os formulários embedados em um panel? Fiz o procedimento abaixo, mas o nome do primeiro formulário sempre fica "Agarrado" no caption da label e não limpa quando abro outro.
procedure TPagePrincipal.MostraCaption;
begin
lblFormCaption.Caption := ''; // Limpa o conteúdo do caption

// Itera sobre os componentes no painel para encontrar o formulário ativo
for var I := 0 to pnlEmb.ControlCount - 1 do
begin
if pnlEmb.Controls[I] is TForm then
begin
lblFormCaption.Caption := TForm(pnlEmb.Controls[I]).Caption;
Break;
end;
end;
end; Alguém pode me ajudar??????????????????