Цифровой корень (Генерация чисел со сложением от 1 до 10000)

function Cif_krn(n:integer):byte;
var a,s:integer;
begin
if n>9 then
while n>10 do
 begin
  s:=0;
  a:=n;
  while a>0 do
   begin
    s:=s+a mod 10;
    a:=a div 10;
   end;
  n:=s;
 end;
result:=n;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,k:integer;
begin
//вводим цифру
val(Edit1.Text,n,k);
if(k<>0)or not(n in [1..9]) then
 begin
  ShowMessage('Введите цифру от 1 до 9');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
for i:=1000 to 9999 do
if Cif_krn(i)=n then  Memo1.Lines.Add(inttostr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,i,k:integer;
begin
randomize;
//вводим цифру
val(Edit1.Text,n,k);
if(k<>0)or not(n in [1..9]) then
 begin
  ShowMessage('Введите цифру от 1 до 9');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
repeat
i:=1+random(10000);
until Cif_krn(i)=n;
Memo1.Clear;
{for i:=1000 to 9999 do
if Cif_krn(i)=n then Memo1.Lines.Add(inttostr(i)); }
Memo1.Lines.Add(inttostr(i));
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TRoot = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Root: TRoot;
 
implementation
 
{$R *.dfm}
 
function Cif_krn(n:integer):byte;
var a,s:integer;
begin
if n>9 then
while n>10 do
 begin
  s:=0;
  a:=n;
  while a>0 do
   begin
    s:=s+a mod 10;
    a:=a div 10;
   end;
  n:=s;
 end;
result:=n;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i,k:integer;
begin
randomize;
//вводим цифру
val(Edit1.Text,n,k);
if(k<>0)or not(n in [1..9]) then
 begin
  ShowMessage('Введите цифру от 1 до 9');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
repeat
i:=1+random(10000);
until Cif_krn(i)=n;
Memo1.Clear;
{for i:=1000 to 9999 do
if Cif_krn(i)=n then Memo1.Lines.Add(inttostr(i)); }
Memo1.Lines.Add(inttostr(i));
end;
 
end.

var
  Root: TRoot;