Source position: googleclassroom.pp line 660
protected procedure TCourseWork.SetworkType(
AIndex: Integer;
const AValue: string
); virtual;