Укажите на ошибку (Delphi)

[BataniQ]

В общем имею задание "Сформировать множество целых чисел и выделить из него подмножество чисел, кратных 3." Проблема заключается в том что он выводит числа кратные 3 в пределе от 0 до 9 не могу вписать отрицательные числа вводит только знак минуса и двузначные числа. Помогите кто чем может. Прошу только редактировать мой текст пожалуйста.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s,r:set of char;
  c:char;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=[];
memo1.Clear; memo2.Clear; Edit1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
C:=Edit1.text[1];
include(s,c);
memo1.Lines.Add(C);
Edit1.Clear;
Edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Clear;
r:=s*['3','6','9'];
For c:=#0 to #255 Do
if c in r Then Memo2.Lines.Add(c);
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[denisbrain]

Сообщение от BataniQ

В и двузначные числа. Помогите кто чем может. Прошу только редактировать мой текст пожалуйста.

var i:integer;
begin
if TryStrToint(edit1.text,i) then // проверка на корректность ввода
if i mod 3 = 0 then form1.Memo1.Lines.Add(edit1.text) // если число кратное 3*м
else form1.Memo2.Lines.Add(edit1.text) // если число не кратное 3-м
end;

для ограничения длины вводимого поля

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.MaxLength:=2;
end;