Source position: googlegmail.pp line 459
protected procedure TMessagePart.Setparts(
AIndex: Integer;
const AValue: TMessagePartTypepartsArray
); virtual;