Source position: googlepeople.pp line 657
protected procedure TImClient.Setprotocol(
AIndex: Integer;
const AValue: string
); virtual;