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