Множества, небольшая проблема Опции

[Nike0]

Доброго времени суток, нужна небольшая помощь: у меня есть 9 эдитов, для пяти из них у меня есть условиеЮ, что можно записывать числа от 1 до 5 включительно и только 1 раз, вот эта процедура:

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  edit:TEdit;
  b:integer;
begin
  edit:= Sender as TEdit;
  if (key = #8) and (edit.Text<>'') then
   include(Number,StrToInt(edit.Text));
  if not (Key in ['1'..'5',#8]) then
    Key :=#0
  else
  begin
    if key<>#8 then
      b := StrToInt(Key);
    if not (b in Number) and (key<>#8) then
      Key := #0
    else
      if key<>#8 then
        exclude(Number,b);
  end;
end;

type
  TNumber = Set of Byte;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Number := [1..5];
end;

но тут начинается самое интересное, я хотел сделать также и для 4 символов (+,-,*,/) в оставшиеся эдиты, но ничего толкового не получилось, прошу помочь разобраться с этой проблемкой