[NIch]

Что значит

Вариант ввода меняется контекстным меню

Цифры или буквы??? Наверно да...

Код:

Procedure EditonKeyPress;//В событиях поля для ввода выбрать onKeyPress
begin
 Edit.Text := String;//Содержимое эдит в переменую
 if Length(String)=7 then begin//если символов 7 то запуск анализа
  if 
    ((Ord(String[0])>Ord(String[1])) and//если нулевой символ больше первого
    (Ord(String[1])>Ord(String[2])) and
    (Ord(String[2])>Ord(String[3])) and
    (Ord(String[3])>Ord(String[4])) and
    (Ord(String[4])>Ord(String[5])) and
    (Ord(String[5])>Ord(String[6])) and
    (Ord(String[6])>Ord(String[7])))
  then //то показать ссобщение
   ShowMessage('Последовательность вознастающая');
 end;
end;

Вот анализ по быстрому...Остальное проще...