[san-46]

Код:

Form3.ADOQuery1.SQL.text := 'select дата, группа,дис, тип, тема, часы from кар where ФИО='''+Form1.DBLookupComboBox2.Text+'''';
try
  form3.ADOQuery1.Open;
  H := 0;
  while not Form3.ADOQuery1.eof do begin
    H := H + Form3.ADOQuery1.FieldByName('часы').AsInteger;
    form3.ADOQuery1.Next;
  end;
  form3.ADOQuery1.First;
  form3.label1.Caption:='За данный период всего записей   '+IntToStr(Form3.ADOQuery1.RecordCount);
  Form3.Label3.Caption:='Учетная карточка:  '+form1.DBLookupComboBox2.Text;
  Form3.Label6.Caption:='Кафедра:  '+form1.DBLookupComboBox1.Text;H := 0;
  LabelX.Caption := IntToStr(H);
finally
  form3.ADOQuery1.Close;
end;