delphi 方法中某些代码不执行

function tform4.tianjiayanzheng():boolean;
var
i:integer;
begin
i := strtoint(edit2.Text);
if i < 1790 then
begin
i := strtoint(LeftStr(datetostr(date),4)) - i;
showmessage('大家快来瞻仰'+ inttostr(i)+'岁的老怪物啊');
edit2.Text := '';
result := false;
exit;
end;
if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') or (edit4.Text = '') then
begin
result := false;
exit;
end;
if CheckBox1.Checked then
begin
if yueshu.Text = '' then
begin
result := false;
exit;
end;
end;
if (ComboBox1.Text = '') or (ComboBox2.Text = '') or (ComboBox3.Text = '') or (ComboBox4.Text = '') or (ComboBox5.Text = '') or (ComboBox6.Text = '') then
begin
result

Delphi中代码执行问题 delphi 中如何设置多用户登陆(代码)? DELPHI代码 delphi代码 如何隐藏ASP代码或网页中某些文字不被修改 pb中怎么在一个窗口中让某些菜单不显示出来，应该在哪个事件里写代码？ delphi如何在memo中显示HTML代码？ 求DELPHI 中得出硬盘号的代码？ Delphi中怎么用代码设置listbox 选中项 请问在delphi中怎么用代码生成 可执行文件