Множества

type
  TForm1 = class(TForm)
  ...............................
    procedure FormCreate(Sender: TObject);
  public
    { Public declarations }
    procedure SetVals(Sender: TObject; var Key: Char);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SetVals(Sender: TObject; var Key: Char);
var
  i: byte;
  s: string;
  {процедура проверяет введины ли одинаковые значения, и если введины одинаковые то
  выводит сообщение об этом, а вводимое значение делает пустым}
  procedure ChekVals(first,last: byte; var Key: Char);
  var j: byte;
  begin
    for j := first to last do //в цикле проверяем цифровые и знаковые эдиты
      if i=j then Continue else //если попадается Едит в которым мы вводим значение то пропускаем его
        if (Self.FindComponent('Edit'+IntToStr(j)) as TEdit).Text=Key then
        begin
        //Если вводимое символ равняется символу в эдитах
          Key := #0;//то вводимый символ делаем пустым #0=''
          ShowMessage(format('Вводимый символ уже был введен в %s',['Edit'+IntToStr(j)]));
          break;//выходим из цикла
        end;
  end;
 
begin
  s := (Sender as TEdit).Name;
  i := StrToInt(s[5]);
  if (Length((Sender as TEdit).Text)<1) then //вводить можно не более 1 символа
    if i<6 then
    begin
      //проверяем чтобы вводимые значения были в пределах чисел 1-5
      if (ord(key)<49) or (ord(key)>53) then//в табл ASCII коды от 49 до 53 = числам  1-5
      begin
        key := #0;
        ShowMessage('Введите значения от 1 до 5');
        exit;
      end;
      ChekVals(1,5,key);//проверяем на совпадения
    end else
    begin
      //проверяем чтобы вводимые значения были в пределах символов +,-,*,/
      if not ord(key) in [42,43,45,47] then //ф-ция ord возращает код симола из табл ASCII
      begin
        key := #0;
        ShowMessage('Введите одно из значений [+,-,*,/]');
        exit;
      end;
      ChekVals(6,9,key);//проверяем на совпадения
    end
  else begin
    if Key<>#8 then
      key := #0;
    exit;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: byte;
begin
  for i:= 1 to 9 do
    (Self.FindComponent('Edit'+IntToStr(j)) as TEdit).OnKeyPress := SetVals;
end;