TSiteContact

type TSiteContact = class(TGoogleBaseObject)

protected

  procedure Setaddress(); virtual;

  procedure SetcontactType(); virtual;

  procedure Setemail(); virtual;

  procedure SetfirstName(); virtual;

  procedure Setid(); virtual;

  procedure SetlastName(); virtual;

  procedure Setphone(); virtual;

  procedure Settitle(); virtual;

published

  property address: string; [rw]

  property contactType: string; [rw]

  property email: string; [rw]

  property firstName: string; [rw]

  property id: string; [rw]

  property lastName: string; [rw]

  property phone: string; [rw]

  property title: string; [rw]

end;

TSiteContact

TGoogleBaseObject

TObject