[asimpsons]

Всем добрый день!
Помогите, не могу связать dataset и progressbar между собой. не знаю куда ставить inc() и где взять max. Вот примерный код:

procedure TfmMain.sbShowmayqClick(Sender: TObject);
begin
with dm do
begin
qSubGR.close;
qSubGR.sql[3]:='where t.n_gr='''+qGR.fieldbyname('n_gr').AsString+'''';
qSubGR.sql[39]:='substring(r.n_mat,1,2)='''+qGR.fieldbyname('n_g r').AsString+'''';
qSubGR.active:=true;
end;
end;