Source position: googlegmail.pp line 411
protected procedure TMessage.Setpayload(
AIndex: Integer;
const AValue: TMessagePart
); virtual;