procedure TForm1.RangeCancelClick(Sender: TObject);
begin
 StudInfo.CancelRange;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 StudInfo.Open;
end;