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