[Yurk@]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do  // перебираем все компоненты на форме
    if Components[i] is TLabel  // ищем нужные компоненты (TLabel)
        then TLabel(Components[i]).Caption:='text';  // выполняем действие с компонентом (присваев текст)
end;