Menentukan GENAP/GANJIL dengan LOOPING

Baru tadi pagi diajarin ma ASDOS tentang LOOPING,sebenarnya maish kepikiran dengan tuduhan kerjasama dalam UTS kemarin. Tapi ya sudahlah,yang lalu biarlah berlalu,sekarang fokus pada nie program. Berkut penampakannya..

 Dan ini untuk syntaxnya: (gunakan dengan bijaksana)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    XPManifest1: TXPManifest;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
     x:=StrToInt(Edit1.Text);
     y:=StrToInt(Edit2.Text);
     Memo1.Clear;
     Memo2.Clear;
     for i:= x to y do
     begin
     if i mod 2=0 then
     Memo1.Lines.Append(IntToStr(i))
     else
     Memo2.Lines.Append(IntToStr(i))
     end;
end;

end.