procedure TRatingForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ListView1.Clear;
  ClearLinkedList(GoodStudentsList);
end;