Source position: googleblogger.pp line 774
protected procedure TPost.Setauthor(
AIndex: Integer;
const AValue: TPostTypeauthor
); virtual;