Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    LabeledEdit1: TLabeledEdit;
    Button1: TButton;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  n = 30;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Byte;
begin
  for i:=1 to n do
    LabeledEdit1.Text:=LabeledEdit1.Text + IntToStr(i) + ' ';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
begin
  for i:=1 to n do
    if not odd(i) then
      LabeledEdit2.Text:=LabeledEdit2.Text + IntToStr(i) + ' '
    else if (i mod 3 = 0) then
      LabeledEdit3.Text:=LabeledEdit3.Text + IntToStr(i) + ' '
end;
 
end.