if edit1.Text =''
        then
        begin
           application.MessageBox('輸入姓名','信息',48);
         end
    else   if edit2.Text =''then
         begin
           application.MessageBox('輸入電子郵箱','信息',48);
         end
    else   if edit3.Text =''then
         begin
           application.MessageBox('輸入生日','信息',48);
         end
    else   if edit4.Text =''then
         begin
           application.MessageBox('輸入公司電話','信息',48);
         end
    else   if edit5.Text =''then
         begin
           application.MessageBox('輸入QQ號(hào)','信息',48);
         end
         else   if edit6.Text =''then
         begin
           application.MessageBox('輸入手機(jī)號(hào)碼','信息',48);
         end
         else   if edit7.Text =''then
         begin
           application.MessageBox('輸入電話','信息',48);
         end
         else   if edit8.Text =''then
         begin
           application.MessageBox('輸入聯(lián)系地址','信息',48);
         end
         else   if edit9.Text =''then
         begin
           application.MessageBox('輸入個(gè)人備注','信息',48);
         end
else
begin