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