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