begin
 StudInfo.First;  {skok na pocztek zestawu rekordw}
 StudInfo.DisableControls; {wyczamy elementy sterujce}
 while not(StudInfo.EOF) do
 begin
  StudInfo.Edit;
   StudInfo.FieldByName('SredniaOcen').AsInteger := Random(3) + 3;
  StudInfo.Post;
  StudInfo.Next;
 end;
 StudInfo.EnableControls;
end;