+ if (ComboBox3.ItemIndex=-1) then\r
+ begin\r
+ for i:=1 to strlen(pchar(ComboBox3.text)) do\r
+ setcalendarnote.Phone[i]:=ComboBox3.Text[i];\r
+ end else\r
+ begin\r
+ ReadPBKOffline;\r
+ for z:=1 to PBKOfflineNumber do\r
+ begin\r
+ MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[z].Name;\r
+ if (MainForm.Label16.Caption=ComboBox3.Text) then\r
+ begin\r
+ if (PhoneBackup.PhonePhonebook[z].Number[1]<>chr(0)) then\r
+ begin\r
+ MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[z].Number;\r
+ for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+ setcalendarnote.Phone[i]:=PhoneBackup.PhonePhonebook[z].Number[i];\r
+ end else\r
+ begin\r
+ for j:=1 to PhoneBackup.PhonePhonebook[z].SubEntriesCount do\r
+ begin\r
+ if PhoneBackup.PhonePhonebook[z].SubEntries[j].EntryType=GSM_Number then\r
+ begin\r
+ MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[z].SubEntries[j].Number;\r
+ for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+ setcalendarnote.Phone[i]:=PhoneBackup.PhonePhonebook[z].SubEntries[j].Number[i];\r
+ break;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r