Source position: googlepartners.pp line 225
protected procedure TLead.Set_type(
AIndex: Integer;
const AValue: string
); virtual;