[Страдалецъ]

У автора стоит задача очистить на ВСЕХ формах, так-что примерно так:

Код:

Var i,j: Integer;
begin
 for i := 0 to Application.ComponentCount - 1
 do if Application.Components[i].ClassParent = TForm
    then for j := 0 to Application.Components[i].ComponentCount - 1
         do if Application.Components[i].Components[j].ClassType = TLabel
            then TLabel(Application.Components[i].Components[j]).Caption := 'Чисто';