[Appolon]

Теперь все понятно.
Для подсчета статистики Вам лучше добавить отдельно Query. перебор данных это некрасиво, да и при большом объеме данных занимает много времени на обработку.

Код:

var sem, tes, exz: integer;
begin
  with form3.ADOQuery2.SQL do
	begin 
	 Clear;
	 Add('select тип as тип, sum(часы) as часы from кар ');
	 Add(' where ФИО='''+Form1.DBLookupComboBox2.Text+'''');
	 Add(' group by тип');
	end;
 form3.ADOQuery2.Open;
 
 form3.ADOQuery2.Locate('тип', 'семинар',[]);
 sem:=form3.ADOQuery2.Fields.Fields[1].AsInteger;
 
 form3.ADOQuery2.Locate('тип', 'тест',[]);
 tes:=form3.ADOQuery2.Fields.Fields[1].AsInteger;
 
 form3.ADOQuery2.Locate('тип', 'экзамен', []);
 exz:=form3.ADOQuery2.Fields.Fields[1].AsInteger;
 
 Form3.Label2.Caption :='Семинаров: '+ sem+ ' часов'+#13+
						'Тестов: '+ tes+ ' часов'+#13+
						'Экзаменов: '+ exz+ ' часов';
 form3.ADOQuery2.Close;
end;

Попробуйте вот так.