Source position: googleblogger.pp line 783
protected procedure TPost.Setlocation(
AIndex: Integer;
const AValue: TPostTypelocation
); virtual;