菜鸟求解DELPHI 7 问题 各位大大多帮忙 奉分

Question

下面的过程用于实现把一个偶数分解为两个素数之和,按要求作答.1)写一个自定义函数IsPrimeNumber(Num:integer),用于判断用户输入的数值"Num"是否是素数.
2)利用上一题的函数IsPrimeNumber(Num:integer),写一个自定义函数,当用户输入一个偶数时,把它分解为两个素数之和,对于不是偶数或者无法分解的数应该给予提示说明.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  num,i : integer;
begin
  num := strtoint(edit1.Text);
  if num > 3 then
  begin
    for i := 3 to num do
    begin
      if num mod i = 0 then
        showmessage('是素数');
    end;
  end
  else begin
    showmessage('NO');
  end;
end;