var

 MyForm:TclForm;

 BtnShow : TClProButton;

 MemoContact : TClMemo;

 MyDevice:TclDeviceManager;

 procedure ConList;

 begin

   MemoContact.Text := MyDevice.ContactsList.Text;

 End;

 procedure BtnShowClicked;

 begin

   MyDevice.GetAddressBookContacts('ConList');

 end;

begin

 MyForm := TclForm.Create(Self);

 BtnShow := MyForm.AddNewProButton(MyForm,'BtnShow','List');

 clComponent.SetupComponent(BtnShow,'{"Align" : "MostTop","MarginLeft":60,"MarginRight":60,

 "Height":40,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#571d43","BorderWidth":2,"BackgroundColor":"#d9c5d2"}');

 MyForm.AddNewEvent(BtnShow,tbeOnClick,'BtnShowClicked');

 MemoContact := MyForm.AddNewMemo(MyForm,'MemoContact','');

 MemoContact.Align := alClient;

 MemoContact.ReadOnly := True;

 MyDevice:=TclDeviceManager.Create;

 MyForm.Run;

end;

Çalışıyor ama tüm rehberi 2 kez yazdırıyor