各位高手谁愿意帮帮我啊

Question

顺便问个小问题
代码是这样的
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit3.Text='' then
begin
showmessage('请输入用户名在登陆');
end;
if Edit4.Text='' then
begin
showmessage('请输入用户密码在登陆');
end;
NMPOP31.AttachFilePath:='.';
NMPOP31.DeleteOnRead:=False;
NMPOP31.ReportLevel:=Status_Basic;
NMPOP31.TimeOut:=20000;
NMPOP31.Host:=Edit1.Text;
NMPOP31.Port:=StrToInt(Edit2.Text);
NMPOP31.UserID:=Edit3.Text;
NMPOP31.Password:=Edit4.Text;
NMPOP31.Connect;
Label13.caption:='#邮件总数：'+IntToStr(NMPOP31.MailCount);
end;问题是这样的，如果edit3\4都没有输入那么showmessage就会连着出来两次，怎么能像javascript那样检测的时候出来系统的提示框，并且有声音。
并且弹出的对话框是一个的。
就比如说如果edit3和edit4都没有输入的话，那么检测就先提示一个就行了。请问怎么搞

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit3.Text='' then
begin
showmessage('请输入用户名在登陆');
exit;
end;
if Edit4.Text='' then
begin
showmessage('请输入用户密码在登陆');
exit;
end;
NMPOP31.AttachFilePath:='.';
NMPOP31.DeleteOnRead:=False;
NMPOP31.ReportLevel:=Status_Basic;
NMPOP31.TimeOut:=20000;
NMPOP31.Host:=Edit1.Text;
NMPOP31.Port:=StrToInt(Edit2.Text);
NMPOP31.UserID:=Edit3.Text;
NMPOP31.Password:=Edit4.Text;
NMPOP31.Connect;
Label13.caption:='#邮件总数：'+IntToStr(NMPOP31.MailCount);
end;